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1 .SBTTL DOCUMENT 

1 | --yppae pa Rpt na Ee eR RRS OR NEN pais techn 

4 1.0 ABSTRACT 

; KKXKAAAAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAAS 

7 THIS PROGRAM 1S A DIAGNOSTIC TOOL FOR TESTING THE 

8 ENTIRE FAMILY OF PCS MODULES. THE PROGRAM IS INTENDED [0 BE 
9 USE BY FIELD ENGINEERING AND MANUFACTURING 

10 BY USING THIS PROGRAM AN OPERATOR IS ABLE TO CHECK THE IOCM. 
11 AND ANY DIGITAL OR ANALOG MODULE. SINCE THE ASSUMPTION 

12 1S MADE THAT ALL OUTPUT MODULES ARE CONNECTED TO THE 

13 CUSTOMERS WIRING DURING THE TEST OF OUTPUT MODULES THE 

14 DISABLE BIT IS SET. THIS DIAGNOSTIC WILL NOT CHECK THE 

15 PART OF HARDWARE THAT IS INTERFACING DIGITAL OR ANALOG 

16 MODULES WITH CUSTOMERS WIRING (DRIVING TRANSISTOR, ISOLATING 
17 TRANSFORMERS, PHOTO-COUPLERS ECT). THIS DIAGNOSTIC DOES 

+ NOT REQUIRE ANY EXTERNAL DEVICES OR SPECIAL CONNECTIONS 

1 
20 2.0 HARDWARE REQUIREMENTS 
21 Lo $2999 3295 9 oo oo 6 odd 0 0 8d 0 0 030 020 0299 0 2 090 02038 0080 00 00 8 | 
22 
23 
24 1. LSI 11 WITH 16K OF MEMORY OR ANY POP11 CPU WITH 


25 " -UNIBUS BRIDGE INTERFACE. 


26 2. CONSOLE TERMINAL 

2? 2, FLOPPY DISC OR SOME OTHER INPUT DEVICE 

28 4 LOCM (M7458) 

29 

30 3.0 PROGRAM CONSIDERATION 

31 JOO 000200 OOOO OOOO III 

32 

33 3.1 CPU COMPATIBILITY 

34 THIS PROGRAM CAN BE USED BY THE LSI 11 OR BY THE PODP-11 
35 704, 05, 10, 20, 34, 35,40.45,50 & 70 IF UNIBUS BRIDGE MODULE 
36 1S USED. 

37 

38 32 XXxDP 

39 

40 THIS PROGRAM CAN BE CHAINED BY XXDP & WILL NOT OVERLAY 
41 THE LOADER 

42 

43 CHAIN MODE OPERATION 

uy 

45 1. THE INPUT DIALOGUE WITH AN OPERATOR IS BYPASSED 
46 2. THE SUBSYSTEM 1S MAPPED IN MEMORY 

47 3. THE S/*STEM TEST 1S AUTOMATICALLY EXECUTED 

48 

49 NORMAL OPERATION 

50 1. START AT LOC 204 

51 2. SELECT TEST 

52 3. PROGRAM RUNS AND GOES BACK TO MONITOR 

53 

54 3.3 ACT/APT 

55 


56 THIS PROGRAM IS ACT COMPATIBLE TO THE EXTENT THAT APT HOOKS 
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14 WILL BE IN THE PROGRAM & WILL WORK THRU THE “UPTON INTERFACE” 

59 

60 

re 3.4 EXECUTION TIME 

63 MOST INDIVIDUAL TESTS TAKE LESS THEN 1 SEC. THE ONESHOT MODULE TEST 
64 TAKES 15 SEC. THE SYSTEM TEST EXECUTION TIME DEPENDS 

+ ON THE NUMBER AND TYPE OF 170 MODULES 

+4 3.5 DEFAULT ADDRESSES & VECTORS 

69 THE FOLLOWING IS A LIST OF THE DEFAULT ADDRESSES & VECTORS 

70 OF ALL HARDWARE TO BE USED AND THEIR CORRESPONDING MEMORY LOCATIONS. 
71 IN THE CASE THAT THE 10CM IS SET TO AN ADDRESS OTHER THAN 

2 171000 THESE LOCATIONS MUST BE CHANGED. 

73 BASE: .WORD 171000 ;FIRST ADDRESS OF |/OADDRESS BLOCK 
74 CSR: .WORD = 171377 ; ADDRESS OF IOCM CSR REGISTER 

75 IAR: .WORD 171376 ; AR REGISTER 

76 VECTO: .WORD 234 ; INTERRUPT VECTOR OF IOC 

Ad VECTOA: .WORD 236 ; INTERRUPT VECTOR+2 OF IOCM 

79 4.0 OPERATING PROCEDURE 

80 1$ 0 2999950995055055595 6990999999055 095 200920 02902592 2 0 02 2 8 8 | 

81 

82 4.1 PROGRAM LOADING 

83 

84 THE PROGRAM CAN BE LOADED FROM PAPER TAPE OR FLOPPY 

85 DISK USING STANDARD PROCEDURES. 

86 

87 4.2 PROGRAM STARTING 

88 

89 LOCATION 200 - STARTING ADDRESS TO RUN THE DIAGNOSTICS MONITOR 
96 THE PROGRAM WILL PRINT OPTIONS AVAILABLE TO 
91 THE OPERATOR. 

92 

93 LOCATION 204 - STARTING ADDRESS OF MONITOR WITHOUT PRINTING 
94 OPERATOR'S OPTIONS 

95 

96 4.3 INPUT DIALOGUE 

97 

98 IF AN OPERATOR STARTS THE PROGRAM AT LOCATION 204 HE CAN 

99 SELECT ONE OF FOLLOWING OPTIONS: 

100 

101 
102 4.3.1 S-SYSTEM TEST 

103 
104 THIS OPTION OF THE PROGRAM WILL MAP ALL THE ANALOG 

105 AND DIGITAL MODULES CONNECTED TO THE |OCM AND BUILD 

106 A TABLE OF THEM IN MEMORY. THEN IT WILL PICK UP 

107 EACH ONE AND RUN THE APPROPRIATE TESTS. IF SWITCH 14 IN 

108 THE SOFTWARE SWITCH REGISTER IS SET .IT WILL LOOP ON 

109 CURRENT TEST UNTIL OPERATOR TYPES CONTROL C. AFTER THE SELECTED & OF 
110 PASSES. THE PROGRAM WILL PRINT PASS COUNT UNLESS SWITCH 13 IS SET 


112 4.3.2 M- MAP OF DBUS 
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THIS OPTION ALLOWS AN OPERATOR TO CHECK WHICH |70 MODULE 

ARE CONNECTED TO THE IOCM. IT CHECKS ALL ADDRESSES BETWEEN 
171000 AND 171375. FOR ADDRESSES THAT ANSWER . IT CHECKS THE 
GENERIC CODE AND TYPES THE ADDRESS AND INTERFACE TYPE. 


D - TEST DIGITAL MODULE 


THIS TEST WILL EXERCISE THE DIGITAL MODULE AT THE ADDRESS 
SPECIFIED BY THE OPERATOR. FOLLOWING IS A DESCRIPTION OF 
THE DIGITAL MODULE TESTS FOR EACH MODULE TYPE. . 

EACH TEST IS RUN AS MANY TIMES AS SELECTED BY THE L OPTION 
AND THE PASS COUNT IS PRINTED. 


1. SET D BIT 

2. Ts THAT ALL BITS ARE ZERO 
S SET TOIT 

4. CHECK THAT ALL BITS ARE ONES 
5. SET C BIT 

1. SET OBIT AND TBIT 

2. CHECK IF INPUTS ARE ALL ONES 
3. CLEAR TBIT 

4. ‘CHECK IF INPUTS ARE ALL ZEROS 
5. CLEAR ALL INTERRUPTS 

6. SET TBIT 

7. ENABLE INTERRUPT 

8. CHECK IF INTERRUPT OCCURRED 
9. CHECK IF INPUTS ARE ALL ONES 
10. CHECK IF COS REGISTERS ARE ALL ONES 
11. SET RIF BIT 

12. CLEAR ALL COS REGISTERS 

13. CHECK IF THEY ARE CLEAR 


14. CLEAR T BIT 

15. CHECK IF INTERRUPT OCCURED 
16. CHECK IF ALL INPUTS ARE ZERO 
17. RUN STEP 10 TO 13 

18. CLEAR ALL INTERRUPTS 


SET OBIT 

CHECK IF ALL BITS ARE ZERO 
SET TBIT 

CHECK IF ALL BITS ARE ONE 
CLEAR T BIT 

CLEAR ALL INTERRUPTS 

SET T BIT 

ENABLE INTERRUPT 

CHECK IF INTERRUPT OCCURRED 


Sen Hepes 
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5012: 


M6010: 


M6011: 


M6012: 
Mo013: 


4 


ee ee 
MNLWN-O 


= SENG OSH 


—— 
—-O 


Nees hrS 


THE 


elk kr a ak 


SET RIF BIT 

CLEAR INTERRUPT 

CHECK IF INTERRUPTS ARE CLEAR 
CLEAR T BIT 

RUN STEP 9 TO 12 

CLEAR ALL INTERRUPTS 


SET OBIT 

CHECK IF ALL BITS ARE ZERO 
SET TBIT 

TEST IF ALL BITS ARE ONE 
CLEAR T BIT 

CLEAR ALL INTERRUPTS 

SET T BIT 

ENABLE INTERRUPT 

CHECK IF INTERRUPT OCCURED 
SET RIF BIT 

CLEAR INTERRUPT 

CHECK IF INTERRUPT IS CLEAR 
CLEAR T BIT 

RUN STEP 9 TO 12 

CLEAR ALL INTERRUPTS 


SET D BIT 

CLEAR ALL 4 BYTES OF 170 REGISTER 

SET DATA PATTERN 125 IN FIRST BYTE 
CHECK IF IT 1S SET 

CHECK IF OTHER BYTES ARE ZERO 

DO THE SAME WITH DATA 252, 377 . 000 
DO THE SAME WITH OTHER BYTES 


LINE CLOCK MUST BE ENABLE 


SET D BIT 

SET DATA PATTERN 252 AT MUT 

CHECK IF IT IS SET 

WAIT UP TO 10 SEC 

DATA SHOULD BE CLEAR 

REPEAT STEP 2 TO 5 WITH DATA EQUAL TO 125 


SET D BIT 

SET OUTPUT REGISTER TO FOLLOWING DATA PATTERN 
0, 377, 252.125 

CHECK IF !T IS SET 


SEQ 0006 
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225 4.3.4 1 - TEST 10CM 
22? THIS TEST WILL EXERCISE ALL THE FEATURES OF THE I0CM. THE FOLLOWING 
22 IS A DESCRIPTION OF ALL THE TESTS. 
229 THIS TEST IS RUN AS MANY TIMES AS SELECTED AND THE PASS COUNT IS TYPED 
231 TST1: CHECKS IF EACH’BIT OF THE IOCM IS CLEARED BY THE CBIT 
330 TST2: CHECKS IF THE INTERRUPT ENABLE BIT (EBIT) CAN BE SET AND CLEARED 
236 TST3: CHECKS IF THE MAINTENANCE BIT (MBIT) CAN BE SET AND CLEARED 
237 TST4: CHECKS IF THE DISABLE BIT (DBIT) CAN BE SET AND CLEARED 
238 CHECKS IF DBIT GENERATES CLEAR 
20 TST5: CHECKS IF THE TEST BIT (TBIT) CAN BE SET AND CLEARED 
41 
202 TST6: CHECKS IF THE GENERIC CODE BIT (GBIT) CAN BE SET AND CLEARED 
4 
20 TST?: CHECKS IF THE RIF BIT (RBIT) CAN BE SET AND CLEARED 
4 
246 TST10: CHECKS DBUS DATA PATHS IN A MAINTENANCE 
2u? MODE. IF THE MBIT 1S SET AND THE CPU ADDRESSES ANY LOCATION 
248 BETWEEN 171000 AND 171375 IT SHOULD READ BACK THE LOWER BYTE 
249 OF THE MODULE ADDRESS. 
251 TST11; CHECKS MAINTENANCE INTERRUPT. IF THE MBIT & EBIT 
252 ARE SET. THE IOCM WILL GENERATE AN INTERRUPT WITH VECTOR 234 
253 THE IAR (171376) HAS THE LOWER BYTE OF CSR ADDRESS (377). 
254 
255 4.3.5 W-WRAP AROUND TEST 
256 
257 THIS OPTION ALLOWS THE FIELD ENGINEER TO CONNECT MODULE M6010 TO 
258 EITHER M5010 OR M5011. THEN IT WRAPS AROUND A SET OF DATA PATTERNS( 125, 252, 377.0 
259 IF SWITCH 14 IN THE SOFTWARE SWITCH REGISTER IS SET , IT WILL 
260 LOOP ON THIS TEST UNTIL THE OPERATOR TYPES CONTROL C. EVERY SELECTED # OF 
261 PASSES IT WILL PRINT PASS COUNT UNLESS SWITCH 13 iS SET. 
262 ERRORS WILL BE PRINTED INDICATING GOOD DATA,BAD DATA AND THE PASS # AT WHICH 
263 IT OCCURRED. 
264 
265 
266 4.3.6 F -FIELD TEST 
267 
268 THE PURPOSE OF THIS TEST IS: 
259 TO OUTPUT ANY SELECTED DATA PATTERN TO AN OUTPUT 
270 MODULE SPECIFIED BY OPERATOR 
271 B. TO MONITOR DATA FROM AN INPUT MODULE SPECIFIED BY OPERATOR 
272 
273 WARNING: THE FIELD ENGINEER MUST REALIZE THAT THIS 1S THE ONLY TEST 
274 THAT PERMITS HIM TO OUTPUT DATA TO THE CUSTOMER'S WIRING 
275 THERE WILL BE VOLTAGE APPLIED TO CUSTOMER EQUIPMENT CONNECTED 
276 TO THE OUTPUT MODULE UNDER TEST 
277 THEREFORE PRECAUTIONS MUST BE TAKEN THAT AN ERRONEOUS OUTPUT WILL 
278 NOT CAUSE DAMAGE TO THE FIELD EQUIPMENT AND THAT ALL TESTING IS 


279 CONDUCTED WITH THE CUSOMERS KNOWLADGE 
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PROCEDUR 


4.3.7 


6 


E: 
USER SELECTS THE ADDRESS OF THE MODULE UNDER TEST. 
IF 17 1S AN OUTPUT MODULE THEN: 


USER SELECTS AND OUTPUTS A DATA PATTERN, ONE BYTE AT A TIME, 
TO THE MODULE. TYPE CONTROL/C TO ABORT TEST. 


SEQ 0008 


AFTER ALL BYTES OF MODULE HAS BEEN SELECTED, USER MUST TYPE CONTROL/C 


TO GO BACK TO MONITOR. 
EXEMPLE: 


TYPE ADDRESS OF MUT  171XXX 

TYPE ONE BYTE DATA PATTERN  YYY 

(WHERE YYY 1S A 8 BIT DATA PATTERN TO OUTPUT. 

ALSO, THE REQUEST FOR DATA FOR OUTPUT WILL BE REPEATED UP TO 
4 TIMES DEPENDENT UPON MODULE TYPE) 


IF 17 1S AN INPUT MODULE THEN: 


THE TEST MONITORS AND PRINTS DATA FROM MODULE INPUTS. 

iT PRINTS EVERY BYTE ADDRESS OF THE MODULE WITH ITS 

CONTENT DURING THE FIRST PASS AND IT CONTINUES TO 
MONITOR THE DATA WITHOUT PRINTING IT UNLESS A CHANGE 

IN THE DATA OCCURED. MUST TYPE CONTROL/C TO RETURN TO MONITOR. 


EXEMPLE: 


TYPE ADDRESS OF MUT 171XXX 

171XXX : YYY 

(WHERE YYY IS THE 8 BITS OF DATA READ FROM THE MODULE 
THE SECOND LINE OF THE MESSAGE WILL BE REPEATED 

UP TO 4 TIMES, WITH INCREMENTING ADDRESS, 

DEPENDING UPON MODULE TYPE. 


L - SET PASS COUNT 

TYPE THE OCTAL NUMBER OF ITERATIONS FOR ALL TESTS 
DEFAULT NUMBER IS 1. 

MAXIMUM NUMBER 1S 177777 

T - SET SOFTWARE SWITCH REGISTER 


TYPE THE OCTAL NUMBER TO BE LOADED TO SWREG 


100000 - HALT ON ERROR 

4OO00 - LOOP ON TEST 

ZOSG0 - INHIBIT ERROR AND END OF PASS PRINT 
10000 - LOOP ON ERROR 

CONTROL C 


TYPING CONTROL C CAUSES THE PRESENT TEST TO BE ABORTED 
AND PROGRAM RETURNS TO THE MONITOR. 

IN oy CASES IT MAY TAKE UP TO 20 SECONDS FOR THIS TO 
HAPPEN 
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000200 
000100 
000102 
000042 
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000000 


000174 
000000 
000000 


000137 
000100 
012350 
000102 
000340 
000042 
000009 
C00204 
000137 
001100 


001100 


000011 
000012 
000015 
000200 
177776 


177774 
177772 
177570 
177570 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 


000000 
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“SBTTL TRAP CATCHER 


. 20 
;XALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A "™. +2, HALT" 
;XSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUP TS 
commen > * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD O ;; SOFTWARE DISPLAY REGISTER, 
SWREG: “WORD O ;; SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
o JMP OsSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
=1 
NOCLK 
=102 
#PR7 
=42 
HALT 
=204 
JMP SETCLK 


.=1100 
.SBTTL BASIC DEFINITIONS 
;XINITIAL ADDRESS OF THE STACK POINTER Xx* 1100 xx 


STACK= 1100 

. EQUIV EMT, ERROR +;BASIC DEFINITION OF ERROR CALL 

. EQUIV. 10T, SCOPE +>BASIC DEFINITION OF SCOPE CALL 

> MISCELLANEOUS DEFINITIONS 

HT= 11 +;CODE FOR HORIZONTAL TAB 

LF= 12 +;CODE FOR LINE FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 +:>CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 +;PROCESSOR STATUS WORD 

. EQUIV PS, PSH 

STKLMT= 177774 >; STACK LIMIT REGISTER 

PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ;;HARDWARE SWITCH REGISTER 

DDISP= 177570 >;HARDWARE DISPLAY REGISTER 


; KGENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 +; GENERAL REGISTER 


Ri= %1 +;GENERAL REGISTER 
R2= %2 +; GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
R4= “4 +;GENERAL REGISTER 
RS= %5 +; GENERAL REGISTER 
Ro= %6 ;;GENERAL REGISTER 
R7= %7 +;GENERAL REGISTER 
SP= %6 +; STACK POINTER 
PC= %7 +PROGRAM COUNTER 
;XPRIORITY LEVEL DEFINITIONS 

PRO= 0 >;PRIORITY LEVEL 0 


SEQ 0009 
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393 000040 PRi= 40 s;PRIORITY LEVEL 1 
394 000100 PR2= 100 +; PRIORITY LEVEL 2 
395 000140 PR3= 140 s+ PRIORITY LEVEL 3 
396 000200 PR4= 200 ++PRIORITY LEVEL 4 
397 000240 PRS= 240 ++PRIORITY LEVEL 5 
398 000300 PR6= 300 ++PRIORITY LEVEL 6 
= 000340 PR7= 340 ++PRIORITY LEVEL 7 
401 sX"SWITCH REGISTER" SWITCH DEFINITIONS 
402 100000 SWi5= 100000 
403 040000 SWi4= 40000 
404 020000 SWi3= 20000 
405 010000 SWi2= 10000 
406 004000 SWii= 4000 
407 002000 SW1i0= 2000 
408 001000 SWO9= 1000 
409 000400 SWO8= 400 
410 000200 SWO7= 200 
411 000100 SWO6= 100 
412 000040 SWO5= 40 
413 c00020 SWO4= 20 
414 009010 SWO3= 10 
415 000004 SWO2= 4 
416 000002 SWO1= 2 
417 000001 SWOO= 1 
418 . EQUIV SWO9. SHO 
419 . EQUIV SWO8, SH8 
420 . EQUIV SWO7, SW? 
421 . EQUIV SWO6, SH6 
422 . EQUIV SWOS, SWS 
423 . EQUIV SWO4, SH4 
424 . EQUIV. SWO3, SWZ 
425 . EQUIV SWO2, SWZ 
426 . EQUIV SWO1, SW1 
427 : . EQUIV SWOO, SHO 
428 
429 ;XDATA BIT DEFINITIONS (BITOO TO BIT15) 
430 100000 BIT15= 100000 
431 040000 BIT14= 40000 
432 020000 BIT13= 20000 
433 010000 BIT12= 10000 
434 004000 BiTii= 4000 
435 002000 BiTiO= 2000 
436 001000 BITO9= 1000 
437 000400 BITO8= 400 
438 000200 BITO7= 200 
439 000100 BiTO6= 100 
440 000040 BiTOS= 40 
441 000020 BITO4= 20 
442 000010 BITO3= 10 
443 000004 BITO2= 4 
44y 000002 BiITO1= 2 
44s 000001 BiTOO= 1 
446 EQUIV BITO9.BIT9 
447 EQUIV BITO8.BITs 
448 .EQUIV BITO7,B1T? 
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BASIC DEFINITIONS 


. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 
. EQUIV 


BITO6, BIT6 
BITOS, BITS 
BITO4.BITY 
BITOS,BIT3 
BITO2.B1T2 
BITO1,B1T1 
BI TOO. B1TO 


; XBASIC ae? TRAP VECTOR vie at 
TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

oe 8 Bi 

++ TRACE TRAP 

++BREAKPOINT TRAP (BPT) 

+; INPUT/OUTPUT TRAP (I10T) X*XSCOPEXX 

+;POWER FAIL 

+;EMULATOR TRAP (EMT) XXERRORXX 

+7"TRAP" TRAP 


ERRVEC= 4 
RESVEC= 
TBITVEC 
TRIVEC= 
BPTVEC= 
|OTVEC= 
PWRVEC= 
EMTVEC= 


TRAP VEC=34 


TKVEC= 
TPVEC= 


60 
64 


PIRQVEC=240 


.SBTTL BIT DEFINITIONS 


FBIT=BIT7 
EBIT=BIT6 
MBIT=BITS 
DBIT=BIT4 
TBIT=BIT3 
GBIT=BIT2 
CBIT=BIT1 
RBIT=BITO 


++ TTY KEYBOARD VECTOR 
+; TTY PRINTER VECTOR 
+;PROGRAM INTERRUPT REQUEST VECTOR 


*FLAG BIT 
+ INTERRUPT 


ENABLE 


;MAINTENANCE INTERRUPT 


+170 DISAB 
TEST BIT. 
oy C 
> CLEAR 


170 
SRIF BIT, 


LE BIT 
INVERTS 170 BITS 
ODE ENEBLE 


CLEARS 170 INTERRUPT 


SEQ 0011 
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3 .SBTTL COMMON TAGS 
483 +s RAEXKAAAAAAAAAA AA AAA AAA AAA AAA AA AAA AAA AA AAA AA AA AAA AREA AAA AA AA EAE 
484 +XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATICNS 
a +KUSED IN THE PROGRAN. 
487 001100 . =1100 
488 001100 SCNTAG: ++ START OF COMMON TAGS 
489 001100 000000 SPASS: .WORD OQ ++CONTAINS PASS COUNT 
490 001102 000 STSTNM: .BYTE 0 ++CONTAINS THE TEST NUMBER 
491 001103 000 SERFLG: .BYTE OQ +;CONTAINS ERROR FLAG 
492 001104 000000 SICNT: .WORD OQ ++CONTAINS SUBTEST ITERATION COUNT 
493 001106 o0c000 SLPADR: .WORD 0 ++CONTAINS SCOPE LOOP ADDRESS 
494 001110 000000 SLPERR: .WORD O ++CONTAINS SCOPE RETURN FOR ERRORS 
495 001112 000000 SERTTL: .WORD 0 +;CONTAINS TOTAL ERRORS DETECTED 
496 001114 000 SITEMB: .BYTE O ++CONTAINS ITEM CONTROL BYTE 
497 001115 001 SERMAX: .BYTE 1 ++ CONTAINS MAX. ERRORS PER TEST 
498 001116 000000 SERRPC: .WORD 0 ++ CONTAINS PC OF LAST ERROR INSTRUCTION 
499 001120 000000 SGDADR: . WORD 0 ++CONTAINS ADDRESS OF ‘GOOD’ DATA 
500 001122 000000 SBDADR: .WORD 0 ++CONTAINS ADDRESS OF ‘BAD' DATA ‘ 
501 001124 000000 S$GDDAT: .WORD 0 +;CONTAINS 'GOOD' DATA 
502 001126 9000000 SBDDAT: .WORD 0 7;CONTAINS ‘BAD’ DATA 
503 001130 000000 WORD 0 ++ RESERVED--NOT TO BE USED 
504 001132 000000 .WORD QO 
505 001134 000 SAUTOB: .BYTE OQ +;AUTOMATIC MODE INDICATOR 
506 001135 000 SINTAG: .BYTE 0 ++ INTERRUPT MODE INDICATOR 
507 001136 000000 .WORD QO 
508 001140 177570 SUR: . WORD OSWR +;ADDRESS OF SWITCH REGISTER 
509 001142 177570 DISPLAY: . WORD ODISP +;ADDRESS OF DISPLAY REGISTER 
510 001144 177560 STKS: 177560 +; TTY KBD STATUS 
511 001146 177562 STKB: 177562 ++TTY KBO BUFFER 
512 001150 177564 STPS: 177564 + TTY PRINTER STATUS REG. ADDRESS 
513 001152 177566 STPB: 177566 ++TTY PRINTER BUFFER REG. ADDRESS 
514 001154 000 SNULL: .BYTE OQ +;CONTAINS NULL CHARACTER FOR FILLS 
515 001155 002 SFILLS: .BYTE 2 +;CONTAINS # OF FILLER CHARACTERS REQUIRED 
516 001156 012 SFILLC: .BYTE 12 +; INSERT FILL CHARS. AFTER A “LINE FEED” 
517 001157 000 STPFLG: .BYTE OQ +7"TERMINAL AVAILABLE” FLAG (811T<07>=0=YES) 
518 001160 000000 SREGAD: .WORD 0 +;CONTAINS THE ADDRESS FROM 
519 *;WHICH (S$REGO) WAS OBTAINED 
520 001162 000000 SREGO: .WORD OQ +;CONTAINS ((SREGAD)+0) 
521 001164 000000 SREG1: .WORD O +;CONTAINS ((SREGAD)+2) 
522 001166 000000 SREG2: .WORD OQ +,CONTAINS ((SRESAD) +4) 
523 001170 000090 SREG3:° .WORD OQ +;CONTAINS ((SREGAD)+6) 
524 001172 000000 SESCAPE: 0 +;ESCAPE ON ERROR ADDRESS 
525 001174 077 SQUES: .ASCII 777 +; QUESTION MARK 
526 001175 015 SCRLF: .ASCII <15> +; CARRIAGE RETURN 
527 001176 000012 SLF: ~ASCIZ <12> ++LINE FEED 
528 3 5 MEXKAAAAAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAT AE 
529 001200 000120 ATABL: .BLKW 80. +; TABLE A=ADDRESSES OF 170 MODULES 
530 001440 000120 BTABL: .BLKW 80. TABLE B=GENERIC CODES OF THIS MODULES 
531 001700 000141 GENER: .WORD 141 GENERIC CODE FOR NONISOLATED DOC 32 BITS IN 
532 001702 000121 .WORD 121 GENERIC CODE FOR NONISOLATED OC 16 BITS IN 
533 001704 000122 .WORD 122 +GENERIC CODE FOR ISOLATED OC 16 BITS IN 
534 001706 000101 .WORD 191 GENERIC CODE FOR AC 8 BITS IN 
535 001710 000041 .WORD 41 GENERIC CODE FOR NONISOLATED DC 32 BITS OUT 
536 001712 000021 .WORD 21 ;GENERIC CODE FOR ONESHOT 16 BITS OUT 


N 1 SOE gen ieee nee oak pe akinesia 


MAIN. MACY11 3001046) Ry” phim 10:10 PAGE 11 


DVPCAR. Pil 25-OCT-77 COMMON TAGS SEQ 0013 
537 001714 000001 .WORD 1 ;GENERIC CODE FOR ISOLATED DC 8 BITS OUT 
538 001716 000002 .WORD 2 ;GENERIC CODE FOR AC 8 BITS OUT 
539 001720 000000 .WORD 0 
540 001722 005010 MUT: .WORD 5010 
541 001724 005011 .WORD 5011 
542 001726 005012 .WORD 5012 
543 001730 005013 .WORD 5013 
544 001732 006010 .WORD 6010 
545 001734 006011 .WORD 6011 
546 001736 006012 .WORD 6012 
547 001740 006013 .WORD 6013 
548 001742 006672 MODUL: .WORD M5010 ; THIS TABLE HAS ADDRESSES OF 170 SUBRUTINE 
549 001744 010322 .WORD M5011 
550 001746 011152 .WORD 5012 
551 001750 006774 .WORD M5013 
652 001752 007440 .WORD M6010 
553 001754 010024 .WORD M6011 
554 001756 007632 .WORD M6012 
555 001760 007632 .WORD M6013 
556 001762 000000 .WORD OQ 
657 001764 cO0000 ANSW: .WORD OQ 
558 001766 000000 YLOOP: .WORD 0 
559 001770 o00000 DBUFF: . WORD O 
560 001772 000000 .WORD OQ 
561 001774 125 PATT: .BYTE 125 
562 001775 252 .OYTE 252 
563 001776 377 .OYTE <7? 

564 001777 000 .BYTE 0 

565 002000 000042 XXDP- .WORD 42 

566 002002 000000 SMUT: .WORD OQ 

567 002004 000000 BYTNUM: .WORD OQ ;NUMBER OF BITES OF 170 
568 062006 000000 TADOR: .WORD 0 ;ADORESS OF MUT 

569 002010 000000 TADDR1: .WORD OQ 

570 002012 000000 TBADOR: .WORD 0 

571 002014 000000 COSADR: .WORD O *SECEND ADDRESS OF COS MODULE 
572 002016 000000 DMUT:  .WORD OQ DIGITAL MODULE UNDER TEST 
573 0092020 000000 LONGIN: .WORD 0 

574 002022 000000 TNUMB: .WORD QO 

575 002024 177546 CLKADR: .WORD 177546 

576 002026 171377 CSR: .WORD 171377 

577 002030 171376 IAR: .WORD 171376 

578 002032 000234 VECTO: .WORD 234 

579 002034 000236 VECTOA: .WORD . 236 

580 002036 900000 VECT1: .WORD 0 

581 002040 000000 VECTIA: .WORD 0 

582 002042 171000 BASE: .WORD 171000 7FIRST 170 

583 002044 9g00N00 CLK: .WORD O 

584 002046 000000 TEMP: .WORD O 

585 002050 000000 TEMP1: .WORD OQ 

586 002052 000000 TEMP3: .WORD O 

587 002054 000000 TEMP4: .WORD O 

588 002056 000000 PASS: .WORD OQ 

589 002060 000001 PASCNT: .WORD 1 

590 002062 000100 CLKVC: .WORD 190 

591 002064 000102 CLKVCA: .WORD 102 

592 002066 011640 Moo: . WORD F5010 


MAIN. MACY11 wd ag 2 25-OCT-77 10:10 PAGE 12 
DVPCAR. P11 25-OCT-77 10: 02 COMMON TAGS SEQ 0014 


002070 011640 
002072 011652 
002074 011664 
002076 011676 
002100 011732 


002102 011716 
002104 011716 
002106 9oc0000 
002110 000060 





. MAIN. 


MACY11 


DVPCRA. P11 


002112 
002112 
002114 
002116 
002120 
002122 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 
002222 
002224 
002226 
002230 
002232 


30(1046) 25-OCT-77 
25-OCT-77 10: 02 


016230 


017000 


10:10 PAGE 13 
ERROR POINTER TABLE SEQ 0015 


.SBTTL ERROR POINTER TABLE 


;XTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

+XTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;KLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

+ KNOTE1: IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC). 

; KNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLONS: 


eS EM ;;POINTS TO THE ERROR MESSAGE 
;x DH ++POINTS TO THE ade HEADER 
x DT ;+POINTS TO THE DAT 

7 OF ++POINTS TO THE DATA FORMAT 


, 


SERRTB: 


. MAIN. 


DVPCAR. 


MACY 11 


Pil 


002234 
002236 
002240 
002242 
002244 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 
002270 
002272 
002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002316 
002320 
002322 
002324 
002326 
002330 
002332 
002334 
002336 
002340 
002342 
002344 
002346 
002350 
002352 
002354 
002356 
002360 


30(1046) 25-OCT-77 
25-OCT-77 10: 02 


000000 
000000 
000000 
017046 
000000 
000000 
000000 
017111 
000000 
000000 
000000 
017154 
ooco00 
000000 
000000 
016572 
016607 
021734 
000000 
017217 
016607 
021754 
000000 
017251 
017313 
022054 
000000 
017337 
000000 
000000 
000000 
017413 
017450 
021774 
000000 
017541 
000000 
000000 
000000 
020356 
000000 
000000 
000090 


10:10 PAGE 14 
ERROR POINTER TABLE 


SEQ 0016 


. MAIN. 


DVPCAR. 


Pil 


002362 


002362 
002366 
002370 
002374 
002376 


002402 
002410 
002416 
002424 
002432 
002440 
002446 
002454 
002460 
002466 


002474 
002500 
002506 
002514 
002522 


‘002530 


002532 
002534 
002540 
002542 
002550 
002556 


MACY11 30(1046) 
25-OCT-77 


012706 
005026 
022706 
001374 
012706 


012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
112737 
012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 
012716 
000002 
012737 
012737 
012637 


25-OCT-77 10:1 
10: 02 


001100 
001140 
001100 


013679 
000340 
014514 
000340 
015770 
000340 
004264 
001172 
000001 
002466 


000004 
002534 
177570 
177570 
177777 


002542 


000176 
000174 
600004 


000020 
000022 
000030 
000032 
000034 
000036 
004256 


001115 
001110 


000004 
001140 
001142 
176410 


001140 
001142 


O PAGE 15 
ERROR POINTER TABLE 
START: 


.SBTTL INITIALIZE THE COMMON TAGS 
+;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCNTAG. RE +; FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 5; CLEAR MEMORY LOCATION 
CMP #SWR,R6 >; DONE? 
a -6 ;;LOOP BACK IF NO 
#STACK., SP ;; SETUP THE STACK POINTER 
ia wtom 38 A FEW VECTORS 
MOV RSSCOPE, DBIOTVEC +; 10T ie FOR SCOPE ROUTINE 
MOV #340, DRIOTVEC+2 7; LEVEL 
MOV #SERROR, QHEMNTVEC >; ENT vector FOR ERROR ROUTINE 
MOV #340, ORENTVEC+2 7; LEVEL 7 
MOV STRAP, DETRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340, O#TRAPVEC+2; LEVEL 7 
MOV SENDCT.SEOPCT ;; SETUP END-OF-PROGRAM COUNTER 
CLR SESCAPE ;; CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB ee ;;ALLOW ONE ERROR PER TEST 
MOV , SLPERR ;;SETUP THE ERROR LOOP ADDRESS 
>;S'ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER 
MoV QRERRVEC.-(SP) ;; SAVE ERROR VECTOR 
MOV #O4S$, Q8ERRVEC <¢;SET UP ERROR VECTOR 
MoV #DSWR, SHR ;; SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;; AND A HARDWARE DISPLAY REG!STER 
CMP #-1, dSWR 3; TRY TO REFERENCE HARDWARE SWR 
BNE 665 ;; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
BR 655 >; BRANCH IF NO TIMEOUT 
64S: i #65%, (SP) ;;SET UP FOR TRAP RETURN 
| 
65$ MoV #SWREG, SWR ;;POINT TO SOFTWARE SWR 
MOV #DISPREG, DISPLAY 
66S: MOV (SP)+,@RERRVEC ;; RESTORE ERROR VECTOR 


SEQ 0017 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


002562 
002566 
002570 
002576 
002600 
002604 


002640 
002640 
002640 
002644 
002652 
002660 
002662 
002664 
002664 
002670 
002674 
002700 
002702 
002706 
002706 
002714 
002722 
002726 
002732 
002734 
002736 
002742 
002746 
002752 
002756 
002762 
002766 
002772 
002776 


25-OCT-77 1 


005227 
001024 
022737 
001420 
104401 
000415 


012746 
012737 
052777 
000401 
022626 


012637 
012706 
005777 
001402 
000137 


012777 
152777 
012746 
012746 
000002 
000240 
104401 
104401 
104401 
104401 
104401 
104401 
104401 
104401 
104401 


177777 
004300 
002606 


000004 
002662 
000100 


000004 
001100 
177100 


003612 


012550 
000100 
000u00 
002734 


017607 
017631 
017652 
017721 
017774 
020022 
020230 
020250 
020267 


25-OCT-77 10: 
0: 02 


000042 


000004 
177144 


177174 
176222 


10 


PAGE 16 
DIAGNOSTICS MONITOR 


.SBTTL DIAGNOSTICS ——" 
SBTTL TYPE PROGRAM 


ANE 
35 TYPE a NAME oF THE PROGRAM IF Finat PASS 


>; 68S: 
675: 


SETCLK: 


4S: 


64S: 


67% 

#SENDAD, 0842 
675 

- 685 


+e 


+; BRANCH IF NO 

+; ACT-117 

+; BRANCH IF YES 

+; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


T TIME? 


67% 
<CRLF>/DIGITAL 10 SYSTEM TEST/<CRLF> 


ERRVEC, - (SP) 
#19, ERRVEC 
~ ects 


2 
(SP)+, (SP)+ 
(SP) +, ERRVEC 


#KB INT, dKBVEC 
#BIT6,d$TKS 
#PRO, -(SP) 


Re Ge Be 
_ 


T 
LF 
iW 
-L 


s 


++PUSH ERRVEC ON STACK 
; ENABLE LINE CLOCK INTERRUPT FOR UNIBUS COMPUTERS 
; TRAP IF LSI11 

>;POP STACK INTO ERRVEC 


ENABLE KB INTERRUPT 
;SET PSW TO PRIORITY 0 


; TEST OPTIONS 

rh 

6 
MN 


SYSTEM TEST 

DIGITAL MODULE TEST 
MAP OF DBUS DEVICES 
10CM TEST 

SET SWREG 

FIELD TEST 

WRAP AROUND TEST 
LOAD LOOP COUNT 


SEQ 0018 


. MAIN. 


DVPCAR. 


MACY11 


Pil 


003002 
003006 
003014 
003020 
003022 
003024 
003030 
003034 
003040 
003042 
003046 
003052 
003054 
003060 
003064 
003066 
003072 
003076 
003100 
003104 
003110 
003112 
003116 
003122 
003124 
003130 
003134 
003136 
003142 
003146 
003150 
003154 
003160 
003162 
003166 
003172 
003174 
003200 
003202 
003206 
003212 
003216 


30(1046) 


25-OCT-77 


25-OCT-77 10: 02 


012706 
142777 
104401 
104406 
012600 
110037 
104401 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001002 
000137 
022700 
001007 
104401 
104410 
012637 
000137 
104401 
000137 


001100 
000100 
021114 


021315 
021315 
000123 


003612 
000104 


003222 
000101 


011150 
000115 


005054 
000130 


011634 
000111 


005302 
000124 


003564 
000106 


004610 
000127 


004314 
000114 


020321 


002060 
003002 
020013 
003002 


176130 


10:10 PAGE 17 


TYPE PROGRAM NAME 


MONIT: 


10S: 


#1100, R6 
#B1T6, OSTKS 
,MASS12 


(SP)+,R0 
RO, MASS18 
,MASS18 
#123,R0 
1$ 


AUTO 
#104,R0 
23 


DIGIT 
#101,R0 
3$ 


ANALOG 
#115,R0 
4$ 

MAPE 
#130,R0 
5% 
EXERC 
#111,R0 


(SP )+, PASCNT 
MONIT 

, N20 

MONIT 


;SET STACK 

;DISABLE KB INTERRUPT 

; TYPE TEST OPTION TO RUN 
;;POP STACK INTO RO 

;ECHO CHARACTER 

545 Vt ST 

;STAR AUTO TEST 

s0 7 

¢ START DIGITAL MODULE TEST 


¢ START ANALOG MODULE TEST 
ra 

;MAP THE SYSTEM 

ae 

; START EXERCISER 

ee 

3 7TEST tOCK 

it 7 

>SET SOFTWARE SWITCH REG 
ie YT 

;START FIELD TEST 

54 7 

;WRAP AROUND TEST 

>LOAD LOOP COUNT 


>NUMBER OF ITERATIONS = 
>;PQP STACK INTO PASCNT 


:? 
>; OPERATOR TYPED WRONG CHARACTER 


SEQ 0019 


| 


eee 


. MAIN. 


DVPCAR. 


MACY11 30(1046) 


Pil 


003222 
003222 
003230 
003236 
003242 
003244 
003250 
003254 
003262 
003266 
003270 
003272 
003276 
003300 
003306 
003312 
003316 
003322 
003326 
003330 
003332 
003336 
003344 
003350 
003354 
003362 
003364 
003372 
003376 
003402 
003410 
003412 
003416 
003422 
003426 
003432 
003436 
003444 
003446 
003454 
003456 
003462 
003464 
003470 
003476 
003500 
003504 
003510 
003514 
003520 
003522 
003524 
003530 
003532 
003534 


25-OCT-77 


012777 
152777 
104401 
104410 
012637 
013746 
012737 
105777 
001404 
104010 
012637 
000207 
112777 
117700 
012701 
012703 
012702 
020022 
001067 
011337 
152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
011137 
005037 
004777 


104401 


25-OCT-77 
10: 02 


012550 
000100 
021144 


002006 
000004 
003550 
176549 


000004 


000004 
176474 
001742 
001722 
001700 


002002 
000002 
001766 
001766 
001766 


660002 
001766 
001766 
001766 


002016 
002056 
176370 
012446 
002056 
002060 


020000 
002060 


017515 
040000 


021221 
003002 


000002 
000002 


021060 


020417 


176660 
175706 


000004 


176520 


176462 


000007 
176434 


000007 


002056 
000176 


000176 


10:10 PAGE 18 


DIGITAL MODULE MONITOR 


.SBTTL DIGITAL MODULE MONITOR 
DIGIT: 


17%: 


33: 


64S: 


655: 


9S: 
4S: 


2: 


7%: 


TYPOC 
TYPE 


#KB INT, OKBVEC 
#8116, dSTKS 
/MASS13 


(SP)+, TADDR 
ERRVEC, - (SP) 
#5, ERRVEC 
aCsR 

17% 


0 
(SP) +, ERRVEC 
PC 


#GBIT, dCSR 
ATADDR, RO 
# MODUL, R1 
#MUT,R3 
#GENER, RZ 
RO, (R2Z)+ 
1$ 

(R3), SMUT 
#CBIT, dCSR 
YLOOP 
YLOOP 
YLOOP, #7 


64S 

#CBIT, dCSR 
YLOOP 
YLOOP 
YLOOP, #7 
65$ 


(R1),DOMUT 
PASS 

PC, dDNUT 

PC, CNTRC 


PASS 

PASCNT, PASS 
4$ 

#BiT13, SWREG 
7$ 

PASCNT, -(SP) 


M11 
#B1T14, SWREG 
9$ 


, MASS15 
MONIT 
#2,R1 
#2,R3 
(R2) 

3$ 
,»MASS11 
RO, et (SP) 


, MASSO 


;ENABLE KB_ INTERRUPT 
+ TYPE ADDRESS OF MUT 


+;POP STACK INTO TADOR 
+ SAVE ERROR VECTOR 
*SET LOC 4 

;MAKE SURE I10CM IS OK 


+ TEST ABORTED. 1OCM ERROR 
+;POP STACK INTO ERRVEC 


SET GENERIC BIT 
+RO=GENERIC CODE OF MUT 
ADDRESS OT TEST 


; TABLE OF GENERIC CODES 


sont 6 OT 
; WAIT 


;D0 IT AGAIN 
> WAIT 


> TEST MODULE 
CONTROL C* 


> INHIBIT PRINT ? 


>; SAVE PASCNT FOR TYPEOUT 

+,GO TYPE--OCTAL ASCIICALL DIGITS) 
i;# OF PASSES 

LOOP ? 


>END OF MODULE TEST 


> UNKNOWN GENERIC CODE 

>, SAVE RO FOR TYPEOQUT 

3;GO TYPE--OCTAL ASCIICALL DIGITS) 
> CRLF 


SEQ 0020 


. MAIN. 


DVPCAA. P11 


MACY11 3001046) 


003540 012637 
003544 000137 
003550 022626 
003552 104024 
003554 €12637 
003560 000137 


25-OCT-77 


25-OCT-77 10: 02 


000004 
003002 


000004 
003002 


10:10 PAGE 19 
DIGITAL MODULE MONITOR 


MOV (SP) +, ERRVEC RESTORE ERRVEC 


JMP MONIT 
5S: CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 
ERROR 2 ;MODULE NOT RESPONDING 


4 
MOV (SP) +, ERRVEC 
JMP MONIT 


SEQ 0021 


ee | 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


003564 
003570 
003574 
003576 
003602 
003606 


25-OCT-77 


25-OCT-77 10: 02 


104401 
104401 
104410 
012637 
104401 
000137 


020041 
020216 


000176 
020417 
003002 


10:10 PAGE 20 


J 2 


SET SOFTWARE SWITCH REGISTER 
.SBTTL SET SOFTWARE SWITCH REGISTER 


SWREGS: TYPE 
TYPE 


22 + SWICHES OPTIONS 
M23 SW REG = 


(SP)+, SWREG >;POP STACK INTO SHREG 
-MASSO > CR-LF 


MONIT 


SEQ 0022 


. MAIN. 


DVPCAR. 


Pil 


003612 
003616 
003624 
003632 
003636 
003642 
003644 
003646 
003650 
003654 
003662 
003666 
003674 
003700 
003704 
003706 
003712 
003716 
003722 
003724 
003726 


004024 


MACY 11 Part te 
25-0CT- 


005037 
012777 
152777 
004737 
105777 


026061 


25-OCT-77 
10: 02 


002056 
012550 
000100 
005414 
176164 


000004 
003766 
002042 
000004 
001200 
001440 


177400 
012200 
003722 


002030 


002030 


000004 
000004 
005414 


001440 


176264 
175312 


009004 
176132 


176012 


001700 


10:10 PAGE 21 


AUTO TEST MONITOR 
.SBTTL AUTO TEST MONITOR 


5s MAEXKKAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAAS 


AUT 


7%: 


5S: 


38: 


1$: 


6S. 


258: 


225: 
2358: 


* THIS PART OF A PROGRAM IS A MONITOR FOR AUTOMATIC TEST. 
sFIRST IT TEST 1OCM. THEN IT GENERATES A TABLE AND B TABLE. 
+; THEN IT TESTS EACH INDIVIDUAL 170 MODULE CONNECTED TO DBUS. 
FREGISTERS RO & R1 SERVE AS THE POINTERS FOR MUT 


<4 ~ secey or wena -"" yeteneeiacaccamnem nacre e naRnesineEt 
: PA 


CLR 

MOV #KB INT, OKBVEC 

BiSB #BIT6, dSTKS + ENABLE KB INTERRUPT 
JSR PC, TIOCM 


TSTB aCSR ;MAKE SURE IOCM IS OK 
BEQ 7$ 

ERROR 10 ; TEST ABORTED 

RTS PC 


MOV ORERRVEC,-(SP) ;SAVE ERROR VECTOR 

MOV #15, ERRVEC SET ERROR VECTOR 

MoV BASE. RO ,RO=171000 

MOVB #GBIT, dCSR +SET GENERIC CODE ENABLE 
MOV #ATABL. RZ 
MOV #BTABL.RS 
MOVB (RO),R1 
BIC #177400, R1 


*R1=GENER!IC CODE.READ GENERIC CODE 


JSR PC, TABLE ;FIND WHAT 170 IT IS 
JMP 3S(R4) 

BR 10% 

BR 10$ 

BR 12% 

BR 13$ 

BR 10$ 

BR 12$ 

BR 13$ 

BR 13% 

BR 13$ 

INC RO 

INC RO 

INC RO 

INC RO 

CMP RO, |AR 

BNE 5$ 

CLR (R2) 

BR 6$ 

CMP (SP)+, (SP)+ 

INC RO 

CMP RO, IAR 

BNE 5$ 

CLR (R5) 

MOV (SP)+,Q#ERRVEC ;START TESTING INDIVIDUAL 170 
BICcB #GBIT. dCSR +CLEAR G BIT 
JSR PC, TIOCM 

CLR RO 


R1 
CMP BTABL (RO), GENER(R1) 


SEQ 0023 


. MAIN. 


DVPCRR. 


MACY11 30(1046) 
Pil 25-OCT-77 


004032 
OO4O34 
004040 
004044 
004046 
004052 
004056 
004060 
004064 
004070 
004076 
004104 
004112 
004114 
004116 
004122 
004124 
004126 
004132 
004136 
004140 
004144 
004150 
004156 
004160 
004164 
004172 
004174 
004200 
004202 
004 206 
004214 
004216 
004222 
004224 
004230 
004234 


004234 
004234 


001416 
062701 
005761 
001367 
104401 
016046 
104402 
104401 
000137 
016137 
016037 
016137 
010146 
010046 
004777 
012600 
012601 
062700 
005760 
001331 
005237 
004737 
023737 
001316 
005037 
032737 
001005 
013746 
104402 
104401 
032737 
001277 
005777 
001004 
104401 
006137 


000004 


013700 


25-OCT-77 
10: 02 


000002 
001700 


021060 
001440 


020417 
003002 
001742 
001200 
001722 


175674 
000002 
001440 
002056 
012446 
002060 


002056 
02C000 


002060 


017515 
040000 


175556 


021271 
003002 


001102 
001100 
100000 


000042 


10:10 PAGE 22 
AUTO TEST MONITOR 
BEQ 21$ 
ADD #2,R1 
TST GENER (R1) 
BNE 233 
TYPE ,MASS11 
MOV BTABL (RO), -(SP) 
TYPOC 
TYPE , MASSO 
JMP MONIT 
002016 21%: MOV MODUL (R1), OMUT 
002006 MOV ATABL (RO). TADOR 
002002 MOV MUT(R1), SMUT 
MOV R1,-(SP) 
MOV RO, -(SP) 
JSR PC, dOMUT 
MOV (SP)+,R0 
MOV (SP)+,R1 
ADD #2,R0 
TST BTABL (RO) 
BNE 22% 
INC PASS 
JSR PC, CNTRC 
002056 CMP PASCNT. PASS 
BNE 25% 
CLR PASS 
000176 BIT #B1T13, SWREG 
BNE 208 
Mov PASCNT, - (SP) 
TYPOC 
TYPE M11 
000176 20%: BIT #B1T14, SWREG 
BNE 25% 
268: TST @XxX0P 
BNE 7$ 
24S: TYPE ,MASS17 
JMP MONIT 


001100 


273: 
.SBTTL END OF PASS ROUTINE 


+ UNKNOWN GENERIC CODE 
++SAVE BTABL(RO) FOR TYPEOUT 
++GO TYPE--OCTAL ASCIICALL DIGITS) 


++PUSH R1 ON STACK 
;+PUSH RO ON STACK 
; TEST THIS MODULE 
;;POP STACK INTO RO 
+;POP STACK INTO R1 


> INC PASS COUNT 
+CONTROL C ? 
1S 1T 1000 PASSES 


+ INHIBIT PRINT 
++ SAVE PASCNT FOR TYPEOUT 
+;GO TYPE--OCTAL ASCIICALL DIGITS) 


;# OF PASSES COMPLITED 
+00 WE LOOP ON TESTS 


*END OF SYSTEM TEST 


jj MERAAAAAAAAAAA AAA AAA AREA AAA AAA AAA AAA AA AAA RAAT ES 
;XINCREMENT THE PASS NUMBER (S$PASS) 


;*X1F THERES A MONITOR GO TO IT 
;KIF THERE ISN'T JUMP TO 200 


SEOP: 

SCOPE 

CLR STSTNM 

INC ‘SPASS 

BIC #100000, SPASS 

DEC (PC)+ 
SEOPCT: .WORD 1 

BGT SDOAGN 

MoV (PC) +, OC PC D+ 
SENDCT: . WORD 1 

SEOPCT 
$GET42: MOV 0842, R0 


;;ZERO THE TEST NUMBER 

3; INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEG. NUMBER 
>; LOOP? 


ss Ves 
>; RESTORE COUNTER 


+;GET MONITOR ADDRESS 


SEQ 0024 


. MAIN. 


MACY11 


DVPCAR. P11 


004274 
004276 
004 300 
004302 
004304 
004306 
004310 
004310 


30(1046) 
25-OCT-77 


001405 
000005 
004710 
000240 
000240 
000240 


000137 


25-OCT-77 
10: 02 


000200 


10:10 PAGE 


23 
END OF PASS ROUTINE 


SENDAD: 


SDOAGN: 


BEQ 
.T 


SDOAGN 
PC, (RO) 


0#200 


;+BRANCH IF NO MONITOR 
+;CLEAR THE WORLD 

;:GO TO MONITOR 

++ SAVE ROOM 

+7 FOR 

++ ACTI1 

;;RETURN 


SEQ ; { 


. MAIN. 


DVPC 


AR. 


MACY11 30¢1046) 


Pil 


004314 
004320 
004326 
004334 
004340 
004342 
004346 
004 352 
004354 
004 360 
004 366 
004372 
004376 
004460 
004404 
004410 
004412 
004416 
004420 
004424 
004430 
004434 


004604 


25-OCT-77 


104401 
012777 
152777 
104401 
104410 
012637 
104401 
104410 
012637 
112777 
117760 
020027 
001047 
117701 
020127 


104491 


152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
000137 


25-OCT-77 10: 
10: 02 


021515 
012550 
000100 
021439 


002006 
021463 


002050 
000004 
175414 
000041 


175444 
000141 


000121 


002056 
012042 
012560 
012446 
002056 
002060 


020000 
002060 


017515 
040000 


021556 
003002 
021601 


021650 


000002 
001766 
001766 
001766 


006002 
001766 
001766 
001766 


003002 


175562 
174610 


175440 


002056 
000176 


000176 


175270 


000007 
175242 


000007 


10 PAGE 24 
LOOP TEST 


.SBTTL LOOP TEST 


+THIS TEST ENABLE FIELD ENGINEER TO CONNECT OUTPUT MODULE TO INPUT MODULE 
*OUTPUT TEST PATTERNS AND READ THEM BACK 


LOOP: 


23: 
38; 


5S: 


655: 


» MASS23 

#KB INT, OKBVEC 
#8116, dSTKS 

- MASS21 


(SP )+, TADDR 
, MASS22 


(SP)+, TEMP1 
#GBIT, aCSR 
@TADOR. RO 
RO, #41 


1$ 
OTEMP1,R1 
Ri, #141 
2$ 
R1,#121 
6$ 


PASS 
PC,LOPTST 
PC. CLRINT 
PC, CNTRC 
PASS 

PASCNT. PASS 
3% 

#B1T13. SWREG 
5$ 
PASCNT, - (SP) 


-M11 
#BiT14. SHREG 


&CBIT. dCSR 
YLOOP 


Y.OOP 
YLOOP, #7 
645 


#CBIT, aCSR 
YLOOP 
YLOOP 
YLOOP. #7 
65$ 

MONIT 


SEQ 0026 


+CONNECT OUTPUT TO INPUT MODULE 


ENABLE KB_ INTERRUPT 
+ TYPE ADDRESS OF OUTPUT MUT 


++POP STACK INTO TADOR 
+ TYPE ADDRESS OF INPUT MUT 


+:POP STACK INTO TEMP1 

+SET GENERIC BIT 

GENERIC CODE OF OUTPUT MUT 
1S 'T M6010? 


GENERIC CODE OF INPUT MUT 
+1S tT M5010? 


+1S 17 M5011? 
* TEST SUBROUTINE 


*CLEAR ALL INTERRUPTS 
+ CONTROL-C? 


+ INHIBIT PRINTOUT 
++SAVE PASCNT FOR TYPEOUT 


+2GO TYPE--OCTAL ASCII(ALL DIGITS) 
so we COMPLETED 


, 


*END OF LOOP TEST 

+WRONG MODULE -OUTPUT MUST BE M6010 

+WRONG MODULE- INPUT MUST BE EITHER M5010 OR M5011 
a 


700 IT AGAIN 
> WAIT 


-_- 







. MAIN. 
DVPCAR. P11 














1069 004610 
1070 004614 
1071 004622 
1072 004630 
1073 004632 
1074 004636 
1075 004642 
1076 004650 
1077 004656 
1078 004662 
1079 004666 
1080 004672 
1081 004676 
1082 004700 
1083 004702 
1084 004710 
1085 004714 
1086 004720 
1087 004726 
1088 004730 
1089 004736 
1090 004742 
1091 004746 
1092 004754 
1093 004756 
1094 004762 
1095 004766 
1096 004772 
1097 004776 
1098 005000 
1099 005004 
1100 005010 
1101 005012 
1102 005014 
1103 005020 
1104 005022 
1105 005024 
1106 005030 
1107 005034 
1108 005040 
1109 005042 
1110 005044 
005050 




































MACY11 30(1046) 
25-OCT-77 10: 02 


104401 
012777 
152777 
104410 
012637 
013746 
012737 
112777 
117700 
042700 
012701 
012702 
020022 
001037 
152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
011137 
004777 
104401 
004737 
000775 
062701 
062703 
005712 
001331 
104401 
010046 
104402 
104491 
012637 
000137 
022626 
104024 
012637 
000137 





021144 
012550 
000100 


002006 
000004 
005040 
000004 
175124 
177400 
002066 
001700 


000002 
001766 
001766 
001766 


000002 
001766 
001766 
001766 


002016 
175030 
021362 
012446 


000002 
000002 
021060 


020417 
000004 
003002 


000004 
003002 


25-OCT-77 





175266 
174314 


000004 
175150 


175116 


000007 
175070 


000007 





10: 


O PAGE 
MODULE TEST 











25 


.S8TTL MOOULE TEST 


FIELD: 


35: 


64S: 


65S: 


18: 
23: 


5S: 


; THIS TEST ENABLE FIELD ENGINEER TO SELECT AND OUTPUT ANY DATA 
+ PATTERN TO OUTPUT MODULES. MONITOR AND PRINT DATA FROM INPUT MODULES 


‘’ 


MASS13 
#KBINT, AKBVEC 


#8116, aSTKS 
(SP)+, TADOR 


ERRVEC, -(SP) 


#55, ERRVEC 
#GB1T, dCSR 
ATADOR, RO 
#177400, RO 
#MOD, R1 
#GENER, RZ 
RO, (R2)+ 


23 

#CBIT, aCSR 
YLOOP 
YLOOP 
YLOOP, #7 


64S 

#CBIT, dCSR 
YLOOP 
YLOOP 
YLOOP, #7 
5% 


6 
(R1),OMUT 
PC, dOMUT 
, MASS20 
PC, CNTRC 


,»MASS11 
RO, - (SP) 


, MASSO 
(SP) +, ERRVEC 


MONIT 
(SP)+, (SP)+ 


(SP)+, ERRVEC 


MONIT 


+ TYPE ADDRESS OF MUT 
ENABLE KB INTERRUPT 


;+POP STACK INTO TADOR 
SAVE ERROR VECTOR 
+SET LOC 4 

+SET GENERIC BIT 
GENERIC CODE OF MUT 


;ADDRESS OF TEST 
; TABLE OF GENERIC CODES 


;SET C BIT 
; WAIT 


:DO IT AGAIN 
; WAIT 


¢ 


TEST MODULE 
; TYPE CONTROL-C TO RETURN TO MONITOR 
> CONTROL-C ? 


; UNKNOWN GENERIC CODE 

;;SAVE RO FOR TYPEOUT 

hy i ieee ASCIICALL DIGITS) 
-CR-L 

>RESTORE ERRVEC 


RESTORE STACK POINTER 
;MODULE NOT RESPONDING 


MAIN. 


MACY11 ‘wb ag 1 


DVPCAR. P11 


— 
— 
La] 


DN De eB Re ee 
VNKOWoOnoufw 


005054 
005060 
005066 
005074 
005102 
005106 
005114 
005116 
005122 
005126 
005132 
005134 
005136 
005142 
005146 
005150 
005154 
005156 
005162 
005164 
005170 
005172 
005176 
005200 
005204 
005206 
005212 
005214 
005220 
005222 
005226 
005230 
005232 
005236 
005240 
005242 
005244 
005246 
005250 
005254 
005256 
005260 
005262 


25-OCT-77 


013746 
012737 
012777 
152777 
013700 
112777 
111001 
042701 
004737 
104401 
010046 
104402 
000164 
104401 
0004 34 
104401 
0004 31 
104401 
000430 
104401 
000426 
104401 
000420 
104401 
000417 
104401 
000415 
104401 
000412 
104491 
010146 
104402 
104401 
000403 
005200 
005200 
005200 
005200 
020037 
001317 
000405 
022626 
005200 


25-OCT-77 
10: 02 


000004 
005260 
012550 
000100 
002042 
000004 
177400 
012154 
020422 


00£142 
020434 
020503 
020552 
020616 
020650 
020720 
020761 
021025 
021060 


020417 


002030 


000004 
175014 
174042 


174712 


10:10 PAGE 26 


MAP OF DBUS 
.SBTTL MAP OF DBUS 
5p MAXKKKKAAAKAA AAA AAA AAA KAA AAA AAA AAA AAA AAA AAA AAA AA AA AA AA AA AA EAE 


THIS TEST WILL LIST ALL 170 INTERFACES CONNECTED TO IOCN 
IT WILL ALSO LIST QBUS ADDRESSES 


Pe 0229999555959 99 595595955055 595052505250525 2505050 02509259 59 3 2 9 | 


MAPE: 


5S: 


3: 


OFERRVEC, -(SP) 


#15, ERRVEC 


#KB INT, dKBVEC 


#8116, dSTKS 
BASE. RO 

#GB IT, dCSR 
(RO),R1 
#177400, R1 
PC, GENCOD 

, MASS2 
RO, - (SP) 


,MASS11 


6$ 
(SP)+, (SP)+ 
RO 


; SAVE ERROR VECTOR 
+ SET ERROR VECTOR 


; ENABLE KB INTERRUPT 

;RO=171000 

;SET GENERIC CODE ENABLE 
;R1I=GENERIC CODE,READ GENERIC CODE 
;FIND WHAT 170 IT IS 

; ADDRESS 

;;SAVE RO FOR TYPEOUT 

3;GO0 TYPE--OCTAL ASCIICALL DIGITS) 
7M5010 

>M5011 

7M5012 

7M5013 

;M6010 

;M6011 

;M6012 

>M6013 

; UNKNOWN GENERIC CODE 

7; SAVE R1 FOR TYPEOUT 

a a ie ASCIICALL DIGITS) 
; L 


; INC ADDRESS BY APPROPRIATE NUMBER OF BYTES 


LAST ADDRESS ? 
NO, DO IT AGAIN 


HERE IF ADDRESS IS NOT RESPONDING 
+ INC ADDRESS 


SEQ 0028 


| 


MAIN. MACY11 3001046) a aad 10:10 PAGE 27 


DVPCAR. P11 25-OCT-77 MAP OF DBUS SEQ 0029 
1168 005264 020037 002030 CMP RO, IAR ;LAST ONE ? 
1169 005270 001311 BNE 5$ 
1170 005272 012637 000004 6$: MOV (SP)+,d#ERRVEC ;RESTORE ERROR VECTOR 


1171 005276 000137 003002 JMP MONIT 





.MAIN. MACY11 301046) mw wate ei PAGE 28 


DVPCRA. P11 25-OCT-77 OCM TEST SEQ 0030 
aye .SBTTL 10OCM TEST 
7 re $$ 0525955995 695 9595555055555950505052505 0505050309230 3 0903 8b 0 O | 
11 
1176 + THIS PART OF DIAGNOSTIC TEST THE IOCM 
1177 ;1T HAS 9 TESTS. IT CHECKS IF ALL THE BITS OF THE IOCM 
1178 ;CAN BE SET AND CLEAR . CHECKS MAINTENANCE 
1179 ; INTERRUPT AND CHECKS ALL ADDRESSES IN MAINTENANCE MODE 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


005302 
005306 
005312 
005320 
005326 
005332 
005336 
005344 
005346 
005354 
005356 
005362 
005364 
005370 
005376 
005400 
005404 


25-OCT-77 10:10 PAGE 29 


25-OCT-77 10: 02 


005037 
013746 
012777 
152777 
004737 
005237 
023737 
001370 
032737 
001005 
013746 
104402 
104401 
032737 
001353 
104401 
012637 


002056 
000004 
012550 
000100 
005414 
002056 
002060 


020009 
002060 


017515 
040000 


021246 
000004 


10CM TEST 
5 i RAXKKKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AA AA AA AA AAA AAA AES 
10CM: CLR PASS 


174570 
173616 

15: 
002956 


000176 


000176 2%: 


ERRVEC, - (SP) 
#KB INT, KBVEC 
#B1T6. ASTKS 
PC. TIOCN 
PASS 
ee 

1 

#B1T13, SWREG 
2$ 
PASCNT, - (SP) 


/M11 
#B1T14, SWREG 
1% 


,MASS16 
(SP)+, ERRVEC 


++PUSH ERRVEC ON STACK 


ENABLE KB INTERRUPT 
+ TEST 10CM 


+1000 PASSES DONE ? 

+ INHIBIT PRINT 

++ SAVE PASCNT FOR TYPEOUT 

;;GO TYPE--OCTAL ASCIICALL DIGITS) 
;# OF PASSES 

LOOP ON TEST? 


; 10CM TEST PASSED 
>;POP STACK INTO ERRVEC 


SEQ 0031 


MAIN, MACY11 30(1046) 25-OCT-77 
DVPCRA. Pit 25-OCT-77 10:02 


1199 005410 000137 003002 


10: 7 


PAGE 30 


OCM TEST 


JMP 


MONIT 


SEQ 0032 
























. MAIN. 


MACY11 30(1046) 


DVPCRA. P1i 25-OCT-77 


005414 


005414 
005416 
005424 
005432 
005440 
005446 
005452 
005456 
005464 
005466 
005474 
005500 
005504 
005512 
005514 
005522 
005526 
005532 
005534 
005536 
005540 
005542 
005544 
005546 


000004 
112737 
012737 
112777 
152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
117737 
005037 
C05737 
001405 
104001 
000207 
104003 
022626 
000207 


25-OCT-77 10 
10: 02 


000001 
005540 
000074 
000002 
00: 765 
001766 
001766 


000002 
001766 
001766 
001766 


174306 
001124 
001126 


002022 
000004 
174366 
174360 
000007 


174332 


000007 
001126 


:10 PAGE 31 
10CM TEST 


+ THIS TEST CHECKS IF EACH BIT OF CSR 
1S CLEAR BY CBIT 


aaa ~7 ~~ jpneanaaaradrnee ananienennemmnnamaunmertatitiets 
1: 


TIOC 


64S: 


655: 


10S: 


#CBIT, aCSR 
YLOOP 
YLOOP 

ot Nuala 


64 
&CBIT, dCSR 
YLOOP 
YLOOP 
YLOOP, #7 


65% 
CSR, SBDDAT 
S$GODAT 


(SP )+, (SP )+ 
PC 


;DO IT AGAIN 
; WAIT 


;STORE CONTENTS OF CSR IN BODAT 
> 1S CSR CLEAR 
,Y 


> YES 

>CBIT NOT CLEARING IOCM 

FATAL ERROR RETURN TO MONITOR 
: 1OCM NOT RESPONDING 

>RESTORE STACK 


SEQ 0033 





. MAIN. 


DVPCRA. 


MACY11 


Pil 


005546 
005550 
005556 
005564 
005572 
005576 
005600 
005604 
005610 


005612 
005614 
005622 
005630 
005636 
005642 
005644 
005650 
005654 


005656 
005660 
005666 
005674 
005702 
005706 
005710 
005714 
005720 
005722 
005730 
005736 
005742 
005746 
005754 
005756 
005764 
005772 
005774 
005776 
005776 
006004 
006010 
006014 
006022 
006024 
006032 
006036 
006042 


30(1046) 
25-OCT-77 


oo0vu04 
112737 
012737 
113737 
004737 
104002 
005037 
004737 
104002 


000004 
112737 
012737 
113737 
004737 
104002 
005037 
004737 
104002 


000004 
112737 
012737 
113737 
004737 
104002 
005037 
004737 
104002 
112777 
142777 
005037 
005237 
023727 
001372 
117737 
132737 
001401 
104016 


152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 


25-OCT-77 10 
10: 02 


000002 
000100 
017512 
012230 


001124 
012239 


O0C0003 
000240 
017507 
012230 


001124 
012230 


000004 
000020 
017504 
012230 


001124 
012230 


000074 
000020 
001766 
001766 
001766 


174044 
000177 


000002 
001766 
001766 
001766 


G00002 
001766 
001766 
001766 


002022 
001124 
016326 


902022 
001124 
016326 


002022 
001124 
016326 


174076 
174070 


900007 


001124 
001124 


174022 


000007 
173774 


000007 


:10 PAGE 32 
10CM TEST 


+ THIS TEST CHECKS E BIT 


7s MAKAAAAA AAA AAA R AAA RAK AAA AAA AA AAA AAA AAA AAA AAA AAA EEE 
TST2: SCOPE 


MOVB #2, TNUMB 


2 
JSR PC, BITSET 
R 2 


CLR SGDDAT 
JSR PC, BITSET 
ERROR 2 


> THIS TEST CHECKS MBIT 


+SET TESTED BIT 
;SET EBIT IN ERROR MESSAGE 


;BIT 1S NOT SETTING 


oe 222929999939 99959 9999990955559 9 > 9 oo 0 0 0 0 0 8 oF 0 90 83598 0 0 F008 88 8 8 8 | 
: SCOPE 


TST3 


MOVB #3. TNUMB 


MOV #MBIT!SFBIT. $GDDAT; SET MAITENANCE BIT 


MOVB M6, EM2x 
JSR PC, BITSET 


CLR S$GDDAT 
JSR . PC, BITSET, 


> THIS TEST CHECKS DBIT 


SET ERROR MESSAGE 
+BIT NOT SETTING 


BIT NOT CLEARING 


7 OOOO 


TST4: 


64S: 


665: 


SCOPE 

MOVB #4, TNUMB 

MoV #DB 1 T, SGDDAT 
MOVB MS, EM2X 

PC, BITSET 


CLR S$GDDAT 
JSR PC, BITSET 


MOVB #74, CSR 
BICB #DB IT, aCSR 


CLR YLOOP 
INC YLOOP 
CMP YLOOP, #7 
BNE 64S 


y 
MOVB CSR, SGODAT 
BITB #177, $GODAT 


Q 1% 
ERROR 16 
BISB aCBIT, dCSR 
CLR YLOOP 
INC YLOOP 
CMP YLOOP, #7 
BNE 65 
BISB #CBIT, aCSR 
CLR YLOOP 
INC YLOOP 
CMP YLOOP, #7 


R 
0 


MESSAGE 
ETT!NG 


RO 
BI 
T 


zoom 


R 
T 
S 


>BIT NOT CLEARING 
;SET FEW BITS AT CSR 
>CLEAR OBIT 

> WAIT 


*CHECK IF DBIT CLEAR'NG CLEARS CSR 
>CLEARING OBIT DOES NOT CLEAR CSR 


sS€Tt € BT 
;WAIT 


;D0 1T AGAIN 
;WAIT 


. MAIN. 


MACY 11 


DVPCAR. P11 


1284 
5 


006050 


006052 


006116 


006122 
006124 
006132 
006140 
006146 
006152 
006154 
006160 
006164 


006166 
006170 
006176 
006204 
006212 
006216 
006220 
006224 
006230 


30(1046) 
25-OCT-77 


001372 


000004 
112737 
012737 
113737 
004737 
164002 
005037 
004737 
104002 
004737 


104002 


000004 
112737 
012737 
113737 
004737 
104002 
005037 
004737 
104002 


25-OCT-77 10: 
10: 02 


000005 
000010 
017501 
012239 


001124 
012230 


012360 


000006 
000004 
017476 
012230 


001124 
012230 


000007 
600001 
017474 
012230 


001124 
012239 


002022 
001124 
016326 


002022 
001124 
016326 


002022 
001124 
016326 


10 PAGE 33 
10CM TEST SEQ 0035 


BNE 66% 
+ THIS TEST CHECKS TBIT 
en ee ee aa 


MOVB #5, TNUMB 
MOV #TB1T, SGDDAT 


MOVB M4, EMZK + SET ERROR MESSAGE 

JSR PC, BITSET SET AND CHECK T BIT 

ERROR 2 ‘BIT 1S NOT SETTING 

CLR $GDDAT 

JSR PC, BITSET CLEAR T BIT 

ERROR 2 ;BIT NOT CLEAR 

JSR PC, CLRINT ; CLEAR ALL INTERRUPT CAUSED BY T BIT 


> THIS TEST CHECKS GBIT 
Pe $2925 229595999529955 9959595593955 5 022992299022 25 9990282209009) 
TSTé: SCOPE 

MOVB #6, TNUMB 

MOV #GB1T. SGDDAT 


MOVB M3, EN2x FIX ERROR MESSAGE 
JSR PC, BITSET > SET AND CHECK G BIT 
ERROR 2 ;BIT NOT SETTING 

CLR S$GODAT 

JSR PC, BITSET CLEAR G BIT 

ERROR 2 ;BIT'S NOT CLEARING 


; THIS TEST CHECKS RBIT 
7 Uo ooo OOOO OIE 
TST?: SCOPE 

MOvB #7, TNUMB 

MOV #RBIT, SGODAT 


MOVB M2, EM2x 7>SET ERROR MESSAGE 
JSR PC, BITSET *SET BIT 

ERROR 2 >BIT |S NOT SETTING 
CLR S$GDDAT 

JSR PC, BITSET -CLEAR BIT 

ERROR 2 >BIT 1S NOT CLEAR 










































MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 34 
0: 10CM TEST 


DVPCRR. P1i 25-OCT-77 10: 02 SEQ 0036 


1324 

isa 55 MEXKKKAAAAA AAA AAA AKA AAA AAA AA AAA AAA AAA AA AA AAA AAA AAA AAA AAA ET 
132? ; THIS TEST CHECKS ALL BITS OF DBUS IN A MAINTENANCE MODE. 
1328 ;1F MBIT 1S SET AND CPU ADDRESSES ANY LOCATION BETWEEN 
1329 171000 AND 171375 IT SHOULD READ BACK A LOWER 

Ett +BYTE OF AN ADDRESS. 

+44) 3 i MAAKXAKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAAS AAA AA EAE 
1 

1334 eo 0$ 09% 0539305595055950555995355 252509525 09029 0% 0 29 03 0 003 08 0 8 8 | 
1335 006232 000004 TST10: SCOPE 

1336 006234 112737 000010 002022 MOVB #10, TNUMB 

1337 006242 112777 OOOO4O 173556 MOVB #MB IT, aCSR + SET MAINTENANCE MODE 

1338 006250 013700 002042 MOV BASE. RO 

1339 006254 005001 CLR Ri 

1340 006256 005037 001124 CLR SGODAT 

1341 006262 005037 001126 CLR SBODAT 

1342 006266 111001 1$: MOVB (RO),R1 READ FIRST ADDRESS 

1343 006270 042701 177400 :. ot #177400, R1 

1344 006274 120001 CMPB RO,R1 CHECK IF DBUS=ADDRESS 

1345 006276 001405 '  BEQ 2$ 

1346 006300 110037 001124 MOVB RO, SGDDAT 

1347 006304 110137 001126 MOVB R1, $BDDAT 

1348 006310 104004 ERROR 4 ;>DBUS BIT STACK 

1349 006312 005200 2S: INC RO 

1350 006314 122700 000576 CMPB #376,R0 > 1S 1T THE LAST ADDRESS 

1351 006320 001362 BNE 1$ 

1352 006322 152777 000002 173476 BISB aCBIT, aCSR SET C BIT 

1353 006330 005037 001766 CLR YLOOP » WAIT 

1354 006334 .-005237 001766 64S: INC YLOOP 

1355 006340 023727 001766 900007 CMP YLOOP, #7 

1356 006346 001372 BNE 64S 

1357 006350 152777 000002 173450 BISB #CBIT, aCSR +DO iT AGAIN 

1358 006356 005037 001766 CLR YLOOP ; WAIT 

1359 006362 005237 001766 655: INC YLOOP 

1360 006366 023727 001766 900007 CMP YLOOP, #7 


006374 001372 BNE 65$ 





. MAIN. 
DVPCRA 


MACY11 30(1046) 
25-OCT-77 10: 


.Pil 


006376 
006400 
006406 
006414 
006422 
006426 
0064 34 
006440 
CO6444 
006446 
006450 
006456 
006462 
006466 
006474 
006476 
006500 


006656 


000004 
112737 
012777 
012777 
013746 
012737 
012746 
012746 
000002 
000240 
112777 
005037 
005237 
023727 
001372 
104014 
000431 
022626 
117737 
122737 
001407 
012737 
013737 
104006 
152777 
105777 
132777 
001401 
104015 


152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
012637 
012746 
012746 
000002 
000240 


000011 
006502 
000340 
000004 
006664 
000000 
006446 


000140 
001766 
001766 
001766 


173320 
000377 


000377 
002046 


000001 
173254 
000200 


000002 
001766 
001766 
001766 


000002 
001766 
001766 
001766 


000004 
000000 
006656 


002022 
173416 
173412 


000004 


173350 


177777 


002046 
002046 


001124 
001126 


173260 


173246 


173234 


000007 
173206 


000007 


25-OCT-77 10:10 PAGE 35 
02 10CM TEST 


5s AXXAAAAAAAA AAA A AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AA AAA AAA AAA AAA EEE 


; THIS TEST WILL CHECK MAINTENANCE INTERRUPT 
7 IF MBIT & EBIT ARE SET 1OCM WILL GENERATE AN INTERRUPT 
AT LOCATION 234 AND IAR WILL HAVE LOWER BYTE 


;OF CSR ADDRESS 


+5 MAEXKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA EE 
"S egage > per taparomaaeactie magne tetans: epphmamnayen npr dod ner sta 


sieht: SCOPE. - 
MOVB #11, TNUMB 
MOV #5$, dVECTO 
MOV #PR7, dVECTOA 
MoV ERRVEC, -(SP) 
MOV #85, ERRVEC 
MOV #PRO. -(SP) 
MOV #645, -(SP) 
RT! 

64S: NOP 

1S: MOVB REBIT!#MBIT, aCSR 
CLR YLOOP 

655: INC YLOOP 
CMP YLOOP, #-1 
BNE 655 
ERROR 14 

5S: CMP (SP)+, (SP)+ 
MOVB @IAR. TEMP 
CMPB #377, TEMP 
BEQ 7$ 
MoV #377, SGDDAT 
MoV TEMP, SBDDAT 
ERROR 6 

7S: BISB #RBIT, dCSR 
TSTB acsR 
BITB #FBIT,. dCSR 

EQ 6$ 

ERROR 15 

6$: 
BISB #CB IT. aCSR 
CLR YLOOP 

665: INC YLOOP 
CMP YLOOP, #7 
BNE 665 
BISB #cB IT, daCSR 
CLR YLOOP 

675: INC YLOOP 
CMP YLOOP, #7 
BNE 675 
MOV (SP)+, ERRVEC 
MOV #PRO. -(SP) 
MOV #683$, -(SP) 
RTI 

68s: NOP 


+SET VECTOR ADDRESS 
+SET VECTOR+2 ADDRESS 
++PUSH ERRVEC ON STACK 


+ SET PSW TO PRIORITY 0 


+ START !NTERRUPT 
; WAIT 


, 


+NO INTERRUPT 
> INTERRUPT WORKED 


;READ ADDRESS OF INTERRUPTING MODULE 
; 1AR SHOULD HAVE ALL ONES 


;WRONG PATTERN IN IAR 


>CLEAR INTERRUPT 
;CHECK IF INTERRUPT CLEAR 


-RIF BIT NOT CLEARING INTERRUPT 


SET € OT 
> WAIT 


D0 1T AGAIN 
;WAIT 


+;POP STACK INTO ERRVEC 
SET PSW TO PRIORITY O 


SEQ 0037 


. MAIN. 
DVPCRA 


1418 
1419 
1420 
1421 
1422 
1423 
1424 


MACY 11 
Pil 


006660 
006662 


006664 
006666 
006670 


30(1046) 25-0CT-77 
25-OCT-77 10: 02 


000004 
000207 


022626 
104022 
000735 


10:10 PAGE 36 
10CM TEST 


8S: 


SCOPE 
RTS 


CMP 


ERROR 22 
BR 


PC 
(SP) +, (SP)+ 


;ADORESS TEST WITH MBIT SET NOT WORKING 


SEQ 0038 


. MAIN. 


MACY 11 


DVPCRA. P11 


1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
~ 1448 
1449 
1450 
1451 


006672 


006672 
006674 
006702 
006710 
006716 
006724 


006730 
006736 
006744 
006752 
006756 
006764 
006770 
006772 


30(1046) 
25-OCT-77 


ooco04 
112737 
152777 
112737 
012737 
004737 


152777 
112737 
012737 
004737 
142777 
004737 
000004 
000207 


25-OCT-77 10:10 PAGE 37 
10: 02 10CM TEST 


. 000012 
000020 
000000 
000004 
011746 


000010 
000377 
000004 
011746 
000010 
012360 


002022 
173116 
001124 
002004 


173070 
001124 
02004 


173042 


SEQ 0039 

.SBTTL DIGITAL MODUL TEST .M5010 
5) RKXKAAAAAAAAARA AAA AAA AAA AAA AAA AAA AA AAA AAA AA AAA AA AAA AA AAA AAAS 

THIS TEST WILL CHECK M5010 MODULE 

+32 BIT NONISOLATED OC SENSE 
3p AXKXKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AS AEE 
N5010: 
35 MAXKKKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EASE 
TST12: SCOPE 

MOVB #12, TNUMB 

BiSB #OB1T. dCSR +SET DISABLE BIT 

MOVB #0. $GDDAT ;SET WHAT DATA SHOULD BE 

MOV #4, BYTNUM ;SET NUMBER OF BYTES 

JSR PC, TSTBYT CHECK IF DATA IS CORRECT 

BISB #TBIT, aCSR 

MOVB #377, SGDDAT +SET WHAT DATA SHOULD BE 

MOV #4, BYTNUM ;SET NUMBER OF BYTES 

JSR PC. TSTBYT + CHECK IF DATA IS CORRECT 

BICB #TBIT. aCSR 

JSR PC, CLRINT 

SCOPE 

RTS PC 

| 


B 4 
. MAIN. 


MACY11 30(1046) 


25-OCT-77 10:10 PAGE 38 





DVPCAR. P11 25-OCT-77 10: 02 DIGITAL MODUL TEST .M5010 SEQ 0040 
1452 
wy .SBTTL DIGITAL MODULE TEST .M5013 
at + jp AXKXKAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAI AA AA RA AA AAAS 
1457 + THIS TEST CHECKS M5013 MODULE 
ie +8 BIT AC SENSE 
iene Fe 0220099959995 95 9595959555959 9 50595050505 090 503 02 0905 03 038 3 8} 8 | 
1462 
1463 006774 M5013: 
1464 55 RXXKAKAAAA KAKA AKA KAKA AAA AAA AAA AA AAA AAA AAA AAA AA AAA ARRAS 
1465 006774 O00004 TST13: SCOPE 
1466 006776 112737 000013 002022 MOVB #13, TNUMB 
1467 007004 152777 000020 173014 BISB #0B81T, CSR *;SET DISABLE BIT 
1468 007012 112737 000000 001124 MOVB #0, $GDDAT ;SET WHAT DATA SHOULD BE 
1469 007020 012737 000001 002004 MOV #1,BYTNUM ;SET NUMBER OF BYTES 
abi 007026 004737 011746 JSR PC, TSTBYT CHECK IF DATA IS CORRECT 
1472 007032 152777 O00010 172766 BiSB #TBIT, aCSR ;SET COMPLIM BIT 
1473 007040 004737 012360 JSR PC, CLRINT 
1474 007044 112737 000377 001124 MOVB #377, S$GDDAT SET WHAT DATA SHOULD BE 
1475 007052 012737 000001 9002004 MOV #1,BYTNUM SET NUMBER OF BYTES 
1476 007060 004737 011746 JSR PC, TSTBYT CHECK IF DATA IS CORRECT 
1477 007064 142777 OO0CO10 172734 BICB #TBIT, dCSR 
1478 007072 004737 012560 JSR PC, CLRINT 
1479 
1480 
1481 007076 012746 000000 MOV #PRO, -(SP) SET PSW TO PRIORITY O 
1482 007102 012746 007110 MOV #649, - (SP) 
1483 007106 000002 RTI 
1484 007110 000240 64S: NOP 
1485 007112 012777 007210 172712 MOV #5%, AVECTO SET INTERRUPTVECTOR ADDRESS 
1486 007120 012777 O00340 172706 MOV #PR7, QVECTOA 
1487 007126 152777 000010 172672 BISB #TBIT, dCSR START INTERRUPT 
1488 007134 152777 000100 172664 BISB REBIT. aCSR ENABLE INTERRUPT 
1489 007142 005037 001766 CLR YLOOP ; WAIT 
1490 007146 005237 001766 655: INC YLOOP 
1491 007152 023727 001766 177777 CMP YLOOP, #-1 
1492 007160 001372 BNE 65$ 
1493 007162 104005 ERROR 5 +NO_ INTERRUPT 
1494 007164 142777 000100 172634 7%: BICB #EB IT. dCSR >CLEAR CSR 
1495 007172 142777 000010 172626 BICB #TBIT. dCSR 
1496 007200 004737 012360 JSR PC, CLRINT ;CLEAR ALL INTERRUPT 
1497 007204 O00004 SCOPE 
1498 007206 000207 RTS Pc RETURN TO MONITOR 
1499 
1500 007210 022626 5S: CMP (SP)+, (SP)+ RESET STACK 
1501 007212 005037 002050 CLR TEMP 1 
1502 007216 013704 000004 MoV ERRVEC, R4 
1503 007222 012737 007430 000004 MOV #49, ERRVEC 
1504 007230 117737 172574 002046 6%: MOVB aI AR, TEMP > CHECK WHICH 1/0 INTERRUPTED 
1505 007236 152777 000001 172562 BISB #RBIT, ACSR ;HERE IF INTERRUPT 
1506 007244 123737 002046 002006 CMPB TEMP. TADOR 71S tT MUT 
1507 007252 001414 BEQ 2$ 





. MAIN. 


MACY11 30(1046) 


DVPCRA. P11 


007254 
007262 
007266 
007272 
007300 
007302 
007304 
007310 
007316 
007320 
007326 
007334 
007336 
007340 
007342 
007346 
007354 
007356 
007362 
007366 
007370 
007372 
007400 
007404 
007410 
007416 
007420 
007422 
007426 
007430 
007432 
0074 34 


25-OCT-77 


25-OCT-77 10: 02 


053737 
105777 
005237 
022737 
001353 
104005 
105777 
132777 
001413 
117737 
023737 
001002 
104015 
000430 
004737 
132777 
001422 
012746 
012746 
000002 
000240 
142777 
005037 
005237 
023727 
001372 
104005 
010437 
000656 
022626 
104005 
000137 


002042 
172560 
002050 
000400 


172476 
000200 


172504 
002046 


012360 
000010 


000000 
007370 


000010 
001766 
001766 
001766 


000004 


007304 


002046 


002050 


172510 


002046 
002006 


172452 


172426 


177777 


10:10 PAGE 39 


c § 


DIGITAL MODULE TEST .M5013 


23: 


95: 
83: 


663: 


675: 


35: 
4S: 


BASE. TEMP 
aTEnP 
TEMP1 
#400, TEMP 1 
6$ 

aTADOR 

a aes 


$ 
dIAR, TEMP 
TEMP, TADDR 
9% 


PC, CLRINT 
#TBIT, dCSR 
3$ 


#66%, - (SP) 


#TBIT, aCSR 
YLOOP 
YLOOP 
YLOOP, #-1 
675 


R4, ERRVEC 

? 

(SP)+, (SP)+ 
2$ 


;ASSEMBLE ADDRESS OF INTERRUPTING MODULE 


;LOOP NO MORE THEN 400 TIMES 


+NO_ INTERRUPT 
;CLEAR INTERRUPT 
CHECK IF INTERRUPT CLEAR 


*RIF BIT NOT CLEARING INTERRUPT 


;SET PSW TO PRIORITY 0 


; CHECK !F CLEARING TBIT CAUSE INTERRUPT 
> WAIT 


;NO INTERRUPT 


;NO INTERRUPT 





SEQ 0041 


. MAIN. 


MACY11 30(1046) 


DVPCRR. P11 


1541 
1542 
1543 
1544 
1545 


007440 


007440 
007442 
007450 
007456 
007462 
007464 
007466 
007470 
007472 
007474 
007476 
007502 
007506 
007514 
007522 
007526 
007534 
007536 
007544 
007550 
007556 
007564 
007566 
007574 
007576 
007600 
007604 
007606 
007610 
007614 
007616 
007620 
007624 
007626 
007630 


000004 
112737 
152777 
013700 
105020 
105020 
105020 
105020 
005000 
c05001 
005037 
005037 
116160 
013737 
060037 
116177 
005002 
013737 
060237 
117737 
123762 
001404 
116237 
104017 
005202 
022702 
001354 
005201 
022701 
001334 
005200 
022700 
001323 
000004 
000207 


d 4 


25-OCT-77 10:10 PAGE 40 


25-OCT-77 10:02 


000014 
000020 
002006 


001770 
001772 
001774 
002006 
002046 
001/774 


002006 
002050 
172274 
001126 
001770 
’ "%s. 
000004 
000004 


000004 


DIGITAL MODULE TEST .M6010 
.SBTTL DIGITAL MODULE TEST . M6010 
jp RAXXKAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AA AAA A AEE 


+ THIS TEST CHECKS M6010 MODULE 
+32 BIT NONISOLATED OC OUT 


js RAEXKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA EAE 


M6010: 
5b RXXKAKKAAAA AAA AAA AAA AKA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 
TST14: SCOPE 


002022 MOVB #14, TNUMB 
172350 BISB #DB IT, aCSR ;SET DO BIT 
MOV TADOR, RO 
CLRB (RO)+ ;CLEAR ALL FOUR BYTES OF |70 REGISTER 
CLRB (RO)+ 
CLRB (RO)+ 
CLRB (RO)+ 
CLR RO 
4S: CLR R1 
CLR OBUFF ;CLEAR IMIGE OF 170 REGISRERS 
CLR DBUF F +2 
001770 35: MOVB PATT(R1),OBUFF (RO); SET DATA PATTERN iN IMIGE 
002046 MOV TADOR, TEMP 
ADD RO. TEMP 
172312 “ty ne ;SET DATA IN 170 REG 
L R 
002050 2%: MOV TADOR, TEMP 1 
ADD R2, TEMP 1 
001126 MOVB OTEMP1, SBDDAT ;READ 170 REGISTER 
001770 pty ee eee DATA OK? 
1 
001124 MOVB DBUFF (RZ), SGDDAT 
ERROR 17 ;DATA ERROR 
18: INC R2 
CMP #4,R2 
BNE 25 ; TEST IF OTHER BYTES ARE OK 
te | NC R1 
MP #4,R1 ;LAST PATTERN? 
BNE 34 ; TEST NEXT DATA PATTERN 
INC RO 
CMP #4,R0 ;LAST BYTE? 
BNE 4S >NO. TEST NEXT BYTE 
SCOPE 
RTS PC 


SEQ 0042 


. MAIN. 
DVPCAR. P11 


007632 
007632 


007632 
007634 
007642 
007650 
007656 
007664 
007670 
007676 


007702 
007710 
007716 
007722 
007730 


007734 
007742 
007750 
007754 
007762 


007766 
007774 
010002 
010006 
010014 
010020 
010022 


MACY11 3001046) 


. 2 nie -"" 


25-OCT-77 10:0 


000004 
112737 
152777 
012737 
012737 
004737 
012737 
004737 


012737 
012737 
004737 
012737 
004737 


012737 
012737 
004737 
012737 
004737 


012737 
012737 
004737 
012737 
004737 
000004 
000297 


000015 
000020 
000125 
000001 
012112 
000001 
011746 


000252 
000001 
012112 
000u01 
011746 


000377 
000001 
012112 
000001 
011746 


000000 
000001 
012112 
000001 
011746 


002022 
172156 
001124 
002004 


002004 


001124 
002004 


002004 
001124 
002004 
002004 


001124 
002004 


002004 


:. 3 
DIGITAL MODULE TEST . M6012, M6013 


10:10 PAGE 41 


.SBTTL DIGITAL MODULE TEST . M6012, M6013 


5s AXXXKAAAAAAAAA AAA AAA AA AAA AAA AAA AA AAA AAA AAA AAA AAA AA AA AA AAA AAAS 


5s AXXKAAAAA AAA AA AAA AAA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AAA AAA AEA EEE 


n6O1 3 
M 
55 AXXKAKAAAAAAA AAA AAA AKA AAA AA AAA AAA AAA A AAA AAA AAA AAA EEE 
TST15: SCOPE 
MOVB #15, TNUMB 
BISB #081T, dCSR 
MOV #125, SGDDAT ;SET DATA PATTERN 
MOV #1,BYTNUM ;SET NUMBER OF BYTES 
JSR PC, SETBYT + SET DATA IN 170 MODULE 
MOV #1, BYTNUM 
JSR PC, TSTBYT + TEST iF DATA 'S SET CORRECTLY 
MOV #252, SGDDAT +SET DATA PATTERN 
MOV #1,BYTNUM SET NUMBER OF BYTES 
JSR PC, SETBYT *>SET DATA IN 179 MODULE 
MOV #1, BYTNUM 
JSR PC, TSTBYT + TEST IF DATA IS SET CORRECTLY 
MoV #377, SGDDAT ;SET DATA PATTERN 
MOV #1, BYTNUM +SET NUMBER OF BYTES 
JSR PC, SETBYT +SET DATA IN 170 MODULE 
MOV #1,BYTNUM 
JSR PC. TSTBYT + TEST IF DATA 1S SET CORRECTLY 
MOV #0, $GODAT ;SET DATA PATTERN 
MOV #1, BYTNUM SET NUMBER OF BYTES 
JSR PC, SETBYT SET DATA IN 170 MODULE 
MoV #1,BYTNUM 
JSR PC, TSTBYT > TEST IF DATA IS SET CORRECTLY 
SCOPE 
RTS PC 


+ THIS TEST CHECKS oe M6012 AND M6013 
+8 BIT AC AND DC 0 


SEQ 0043 


FY 





.MAIN. MACY11 30(1046) 25-OCT-77 10:10 PAGE 42 

DVPCRRA. P11 25-OCT-77 10: 02 DIGITAL MODULE TEST .M6011 SEQ 0044 
1632 .SBTTL DIGITAL MODULE TEST . M6011 
+474 55 MEXEXAAAAAAAAARA AAA AAA AA AAA AA AAA AAA AAA AA AAA AA AAA AA AAA AA AAA AERA 
1635 + THIS TEST CHECKS MODULE M6011 
1636 ONE SHOT OC OUT 
ate jp AXKKKKAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA RA AA AA AAR 
1639 
1640 010024 M6011: 
1641 pe 2292993999095 09559599550559555552259 2052952250232 209 990090093 8 | 
1642 010024 000004 TST16: SCOPE 
1643 010026 112737 G00016 002022 MOVB #16, TNUMB 
1644 010034 012737 002006 002010 MOV TADDR, TADDR1 
1645 010042 005237 002010 INC TADOR 1 
1646 010046 152777 000020 171752 BiSB #0B1T, aCSR 
1647 010054 005037 002044 CLR CLK ;CLEAR CLOCK COUNTER 
1648 010060 012777 012352 171774 MOV RCOUNT, @CLKVC ;SET LOC 100- CLOCK VECTOR 
1649 010066 012777 OOO340 171770 MOV #PR7, ACLKVCA +SET LOC 102 
1650 010074 012746 000000 MOV #PRO, -(SP) SET PSW TO PRIORITY 0 
1651 010100 012746 010106 MOV #64$, - (SP) 
1652 010104 C00002 RTI 
1653 010106 000240 64S: NOP 
1654 010110 012737 000252 001124 MOV #252, SGDDAT + SET DATA PATTERN 
1655 010116 012737 000002 002004 MOV #2, BYTNUM SET NUMBER OF BYTES 
1656 010124 004737 012112 JSR PC, SETBYT >SET DATA IN 170 MODULE 
1657 010130 012737 O0C002 002004 MOV #2, BYTNUM 
1658 010136 004737 011746 JSR PC, TSTBYT + TEST IF DATA 1S SET CORRECTLY 
1659 010142 005001 CLR R1 
1660 010144 005201 11$ INC R1 >CHECK IF LINE CLOCK IS INTERRUPTING 
1661 010146 001376 BNE 11$ 
1662 010150 005737 002044 TST CLK 
1663 010154 001010 BNE 1% 
1664 010156 104025 ERROR 25 >LINE CLOCK ISN'T INTERRUPTING 
1665 010160 000453 BR M60118 
1666 010162 105777 171620 2: TSTB dTADDR 
1667 010166 001003 BNE 1$ 
1668 010170 105777 171614 TSTB dTADOR 1 
1669 010174 001410 BEQ M6011A 
1670 010176 022737 001131 002044 1%: CMP #601. .CLK ;WAIT 10SEC 
1671 010204 001366 BNE 2$ 
1672 010206 005037 001124 CLR S$GODAT 
1673 010212 004737 012030 JSR PC, TSTONE PATTERN SHOULD BE CLEAR 
1674 010216 M6011A: 
1675 010216 005037 002044 CLR CLK +CLEAR CLOCK COUNTER 
1676 010222 012737 000125 001124 MOV #125, SGDDAT +SET DATA PATTERN 
1677 010230 012737 000002 002004 MOV #2, BYTNUM ;SET NUMBER OF BYTES 
1678 010236 004737 012112 JSR Pc, SETBYT ;SET DATA IN 170 MODULE 
1679 010242 012737 000002 002004 MOV #2, BYTNUM 
1680 010250 004737 011746 JSR PC, TSTBYT * TEST IF DATA IS SET CORRECTLY 
1681 010254 105777 171526 23: TSTB aTADOR 
1682 010260 001003 BNE 1$ 
1683 010262 105777 171522 TSTB aTADDR 1 
1684 010266 001410 BEQ M6011B 
1685 010270 022737 001131 9002044 1%: CMP #601. .CLK *;WAIT 10 SEC 
1686 010276 001366 BNE 2 
1687 010300 005037 001124 CLR SGDDAT 


‘= SSCS PSRs ssh 
MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 43 | 


DVPCRA. P11 25-OCT-77 10: 02 DIGITAL MODULE TEST . M6011 SEQ 0045 
1688 010304 004737 012030 JSR PC, TSTONE ;PATTERN SHOULD BE CLEAR 
1689 010310 O00004 M6011B: SCOFE 
1690 010312 012777 012350 171542 MOV #NOCLK,@CLKVC ;RESTORE CLOCK VECTOR 
1691 010320 009207 RTS PC 


. MAIN. 


MACY11 30(1046) 


DVPCPA. P11 


1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 


010322 


010322 
010324 
010332 
010340 
010346 
010354 
010362 
010370 


010374 
010402 
010410 
010416 
010422 
010426 
010432 
010436 
010440 
010442 
010450 
010456 
010464 
010472 
010476 
010502 
010510 
010512 
010514 
010522 
010530 
010534 
010536 


010540 
010542 
010546 
010552 
010560 
010566 
010574 
010576 
010604 
010612 
010616 


25-OCT-77 


25-OCT-77 10: 02 


ooco04 
112737 
013737 
062737 
152777 
112737 
012737 
004737 


142777 
112737 
012737 
004737 
004737 
012746 
012746 
000002 
006240 
012777 
012777 
152777 
152777 
005037 
005237 
023727 
001372 
104005 
142777 
142777 
004737 
000094 
000207 


022626 
005037 
013704 
012737 
117737 
123737 
001421 
053737 
152777 
105777 
005237 


000017 
002006 
000002 
000030 
000377 
000002 
011746 


000010 
000000 
000002 
011746 
012360 
000uU00 
010440 


010540 
000340 
000010 
000100 
001766 
001766 
001766 


000100 
000010 
012360 


002050 
000004 
011140 
171244 
002046 


002042 
000001 
171230 
002050 


002022 
002014 
002014 
171452 
001124 
02004 


171424 
001124 
002004 


171362 
171356 
171342 
171334 


177777 


171304 
171276 


000004 
002046 
002006 


002046 
171214 


10:10 PAGE 44 


H 4 


DIGITAL MODULE TEST .M5011 


.SBTTL DIGITAL 


MODULE TEST .M5011 


5p AEXKAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AA AAA AA AAA AAA AAA AAAS 


+ THIS TEST CHECKS M5011 MODULE 
+16 BIT CHANGE OF STATE SENSE 


pe $$ 0962999995 9955955995 0950555555535059259 2252052292250 93 529309) 


N5011: 


pe $93 2550999955955 9559950559 950552255 9595092052252 05 92% 902903509) 


TST17: SCOPE 


64S: NOP 


655: INC 


2S. BiCcB 


#17, TNUMB 

TADDR, COSADR 

#2. COSADR 

SOBIT!#TBIT, CSR; SET DISABLE BIT AND TBIT 
#377, SGDDAT ;SET WHAT DATA SHOULD BE 


#2, BYTNUM ;SET NUMBER OF BYTES 
PC, TSTBYT ;CHECK IF DATA IS CORRECT 
#TBIT. adCSR ;CLEAR COMPLIM BIT 
#0, SGDDAT ; SET WHAT DATA SHOULD BE 
#2, BYTNUM ;SET NUMBER OF BYTES 
PC, TSTBYT ;CHECK IF DATA IS CORRECT 
PC, CLRINT 
#PRO, -(SP) ;SET PSW TO PRIORITY O 
#1%, dVECTO ;SET INTERRUPT VECTOR 
#PR7,QVECTOA 
#TBIT, dCSR ; START INTERRUPT 
REBIT, dCSR > ENABLE INTERRUPT 
YLOOP ; WAIT 
YLOOP 
YLOOP, #-1 
65$ 
>;NO INTERRUPT 
#EBIT. dCSR >CLEAR CSR 
#TBIT. daCSR 
PC, CLRINT >CLEAR ALL INTERRUPTS 
PC ;RETURN TO MONITOR 
(SP)+, (SP) + ;ADJUST STOCK POINTER 
TEMP 1 
ERRVEC. RY 
#10%, ERRVEC 
a1 AR, TEMP ;F IND WHICH 170 INTERRUPTED 
TEMP, TADOR tS (Ff mutT 
8S > YES 
BASE. TEMP ; ASSEMBLE ADDRESS OF INTERRUPTING MODULE 
#RBIT, ACSR >CLEAR INTERRUPT 
aTEMP 
TEMP 1 


SEQ 0046 


j 
a —V—no7_ | 


MAIN. MACY11 3001046) 
DVPCRR. P11 


1748 010622 
1749 010630 
010632 
010634 
010640 
010646 
010654 
010662 
010670 
010672 
010674 
010702 
010706 
010712 
010720 
010722 
010724 
010730 
010734 
010742 
010750 
010752 
010754 
010760 
010766 
010774 
011002 
011004 
011006 
011014 
011020 
011024 
011032 
011034 
011036 
011042 
011046 
011052 
011060 
011062 
011066 
011072 
011074 
011076 
011104 
011112 
011116 
011122 
011130 
011132 
011134 


011140 
911142 
011144 


022737 
001353 
104005 
000137 
142777 
112737 
117737 
123737 
001401 
104020 
152777 
105777 
005037 
117737 
001401 
104013 
005237 
005237 
117737 
123737 
001403 
104005 
000137 
112737 
117737 
123737 
001401 
104020 
152777 
105777 
005037 
117737 
001401 
104013 
005337 
005337 
004737 
132777 
001615 
012746 
012746 
000002 
000240 
142777 
152777 
005037 
005237 
023727 
001372 
104005 
000137 


022626 
104005 
000137 


25-OCT-77 


25-OCT-77 10 
10: 02 


000400 


010514 
000100 
000377 
171134 
001124 


000001 
171106 
001124 
171076 


002014 
002006 
171070 
002046 


010514 
000377 
171022 
001124 


000001 
170774 
001124 
170764 


002014 
002006 
012360 
000010 


000000 
011074 


000010 
000100 
001766 
001766 
001766 


010514 


010514 


002050 


171160 
001124 
001126 
001126 


171124 


001126 


002046 
002006 


001124 
001126 
001126 


171012 


001126 


170746 


170722 
170714 


177777 


: 10 


8$: 


35: 


4S: 


11S: 


5S: 


6$: 


66S: 


673: 


108: 


, = 


PAGE 45 
DIGITAL MODULE TEST .M5011 


CMP #400, TEMP 1 
BNE 7$ 
ERROR 5 

MP 23 
BICB REB IT, aCSR 
MOVB #377, SGDDAT 
MOVB A@COSADR, SBDDAT 
ayy S$GDDAT. SBDDAT 
ERROR 20 
BISB #RBIT, ACSR 
TSTB aC OSADR 
CLR $GDDAT 
MOVB @COSADR, SBDDAT 
BEQ 4S 
ERROR 13 

INC COSADR 

INC TADDR 
MOVB d1AR, TEMP 
CMPB TEMP, TADDR 

EQ 11% 

ERROR 5 

JMP 23 
MOVB #377, SGDDAT 
MOVB aCOSADR, SBDDAT 
CMPB SGDDAT,. SBDDAT 
BEQ 5$ 

ERROR 20 
BISB #RBIT. dCSR 
TSTB aC OSADR 

CLR S$GDDAT 
MOVB dCOSADR, SBODAT 
BEQ 6% 
ERROR 13 

DEC COSADR 
DEC TADOR 

JSR PC, CLRINT 
BITB #TBIT, aCSR 
BEQ 2$ 
MOV PRO, -(SP) 
MoV #66%, - (SP) 
RTI 

NOP 

BIC8 #TBIT, dCSR 
BISB REBIT. ACSR 
CLR YLOOP 

INC Y.OOP 

CMP YLOOP, #-1 

BNE 67% 

ERROR 5 

JMP 2$ 

MP (SP)+, (SP)+ 
ERROR 5 

JMP 2$ 


SEQ 0047 


;NO INTERRUPT 


+ TEST COS REGISTER 
+1S IT ALL ONES 


COS REGISTER ERROR 
;CLEAR INTERRUPT 


;RIF BIT NOT CLEARING FF 
; TEST NEXT BYTE 

;CHECK IF IT INTERRUPTED 
;NO INTERRUPT 


>CHECK IF COS REGISTER 1S ALL ONES 


>COS REGISTER ERROR 
>CLEAR INTERRUPT 


RIF BIT NOT CLEARING FF 

RESET ADDRESS 

»CLEAR REMAINING INTERRUPTS 

;CHECK IF CLEARING T BIT CAUSE INTERRUPT 


SET PSW TO PRIORITY 0 


>CLEAR INPUTS 


> WAIT 


>NO INTERRUPT 


RESET STACK POINTER 
*NO INTERRUPT 


J 4 


| 
— 


MAIN. MACY11 30(1046) 25-OCT-77 10:10 PAGE 46 


DVPCRR. P11 25-OCT-77 10: 02 DIGITAL MODULE TEST .M5011 SEQ 0048 
1803 011150 000240 ANALOG: NOP 
‘coe .SBTTL OIGITAL MODULE TEST .M5012 
sect 5p RXAKXAKAAAAAAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AAAI AAA AA AAA AEE 
1808 +; THIS TEST CHECKS M5012 MODULE 
+ $44 ; ISOLATED 16 BIT DC INPUT 
eis 5p AXKKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AAA EES 
1813 011152 N501 2: 
1814 5p RAHXKAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AA AA AAA AAA AAA AEE 
1815 011152 o0oCO04% TST20: SCOPE 
1816 011154 012737 000020 002022 MOV #20, TNUMB 
1817 011162 152777 000020 170636 BiSB #DB1T, dCSR 
1818 011170 112737 oO00000 001124 MOVB #0. $GDDAT SET WHAT DATA SHOULD BE 
1819 011176 012737 000002 002004 MOV #2, BYTNUM ;SET NUMBER OF BYTES 
$77 011204 004737 011746 JSR PC, TSTBYT ; CHECK IF DATA IS CORRECT 
1 
1822 011210 152777 000010 170610 BISB #TBIT. dCSR 
1823 011216 112737 000377 001124 MOVB #377, SGDDAT SET WHAT DATA SHOULD BE 
1824 011224 012737 000002 002004 MOV #2, BYTNUM +SET NUMBER OF BYTES 
1825 011232 004737 011746 JSR PC, TSTBYT CHECK IF DATA IS CORRECT 
1826 011236 142777 O00010 170562 BICB #TBIT, dCSR 
aa 011244 004737 012360 JSR PC, CLRINT 
1 
1829 011250 012746 d00u00 MOV #PRO, -(SP) ;SET PSW TO PRIORITY 0 
1830 011254 012746 011262 MoV #64, -(SP) 
1831 011260 000002 RT! 
1832 011262 000240 64S: NOP 
1833 011264 012777 011362 170540 MoV #6%, AVECTO SET INTERRUPT VECTOR 
1834 011272 012777 OOO34O 170534 MOV #PR7, VECTOR 
1835 011300 152777 000100 170520 BISB #EBIT. dCSR > ENABLE INTERRUPT 
1836 011306 152777 000010 170512 BISB #TBIT, aCSR START INTERRUPT 
1837 011314 005037 001766 CLR YLOOP ;WAIT 
1838 011320 005237 001766 65S: INC YLOOP 
1839 011324 023727 001766 177777 CMP YLOOP, #-1 
1840 011332 001372 BNE 65$ 
1841 011334 104005 ERROR 5 >NO INTERRUPT 
1842 011336 142777 000100 170462 7%: BICB #EBIT, ACSR CLEAR CSR 
1843 011344 142777 000010 170454 BICB #TBIT, aCSR 
1844 011352 004737 012360 JSR PC, CLRINT *CLEAR ALL INTERRUPT 
1845 011356 000004 SCOPE 
+H 011360 000207 RTS PC RETURN TU MONITOR 
184 
1848 011362 022626 6S: CMP (SP) +, (SP)+ RESET STACK POINTER 
1849 0611364 005037 002050 CLR TEMP 1 
1850 011370 013704 000004 MOV ERRVEC. RY 
1851 011374 012737 011626 000004 MOV #4S, ERRVEC 
1852 011402 117737 170422 002046 33: MOVB OI AR, TEMP +FIND WHICH 170 INTERRUPTED 
1853 011410 152777 000001 170410 BISB #RBIT. ACSR 
1854 011416 123737 002046 002006 CMPB TEMP, TADOR 71S tT MUT 
1855 011424 001415 BEQ 23 + YES 
1856 011426 053737 002042 002046 BIS BASE. TEMP ASSEMBLE ADDRESS OF INTERRUPTING 1/0 
1857 011434 105777 170406 TSTB aTenP >CLEAR INTERRUPT 


1858 011440 005237 002050 INC TEMP 1 





. MAIN. 


MACY11 301046) 


DVPCARA. P11 


011444 
011452 
011454 
011456 
011460 
011464 
011470 
011476 
011502 
011506 
011514 
011516 
011524 
011532 
011534 
011536 
011540 
011544 
011552 
011554 
011560 
011564 
011566 
011570 
011576 
011602 
011606 
011614 
011616 
011620 
011624 


011626 
011630 
011632 


25-OCT-77 


022737 
001353 
104005 
000727 
105777 
005237 
152777 
105777 
005337 
132777 
001413 
117737 
122737 
001002 
104015 
0004 30 
004737 
132777 
001422 
012746 
012746 
000002 
000240 
142777 
005037 
005237 
023727 
001372 
104005 
010437 
000644 


022626 
104005 
000772 


25-OCT-77 10: 
10: 02 


000400 


170322 
002006 
000001 
170304 
002006 
000209 


170306 
002046 


012360 
000010 


000000 
011566 


000010 
001766 
001766 
001/766 


000004 


002050 


170330 
170312 


002046 
002006 


170254 


170230 


177777 


10 


23: 


95: 
85: 


66S: 


67S: 


5S: 


4S: 


CMP 


K 4 
PAGE 47 
DIGITAL MODULE TEST .M5012 


#400. TEMP 1 
3$ 


aTAODR 
TADOR 
#RBIT, ACSR 
OTADOR 
TADOR 
#FBIT, aCSR 
8$ 

OAR, TEMP 
TEMP, TADDR 
9$ 

15 
5 


$ 
PC, CLRINT 
 aelecg 


5 
#PRO, - (SP) 
#66%, - (SP) 


#TBIT, aCSR 
YLOOP 
YLOOP 
YLOOP, #-1 
67% 


RY, ERRVEC 
7$ 


(SP )+, (SP)+ 
55 


*+NO INTERRUPT 
CLEAR INTERRUPT 


;CLEAR INTERRUPT IN NEXT BYTE 
CHECK IF INTERRUPT CLEAR 


sRIF BIT 1S NOT CLEARING INTERRUPT 
;CLEAR ALL REMINDING INTERRUPTS 


;SET PSW TO PRIORITY O 


; CHECK IF CLEARING T BIT CAUSE INTERRUPT 
>WAIT 


>NO INTERRUPT 


;RESET STACK 
»NO INTERRUPT 


SEQ 0049 


.'s 
MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 48 
DVPCRR. P11 25-OCT-77 10: 02 DIGITAL MODULE TEST .M5012 SEQ 0050 


1894 011634 000137 003002 EXERC: JMP MONIT 


. MAIN. 


MACY 11 


DVPCPRA. P11 


011640 
011640 
011640 
011646 


011652 
011652 
011660 


011664 
011664 
011672 


011676 
011676 
011704 
011710 
011714 


011716 
011716 
011716 
011724 
011730 


011732 
011732 
011740 
011744 


30(1046) 
25-OCT-77 


012737 
004737 


012737 
004737 


012737 
004737 


012737 
012700 
004737 
000207 


012737 
004737 
000207 


012737 
004737 
000207 


25-OCT-77 10 
10: 02 


000004 
012724 


000002 
012724 


000001 
012724 


00004 
000004 
012654 


000001 
012654 


000u02 
012654 


002004 


002004 


002004 


002004 


002004 


002004 


:10 PAGE 


49 


Mn 4 


DIGITAL MODULE TEST .M5012 


F5010: 
F5011: 


F5012: 


F5013: 


Fe010: 


F6012: 
F6013: 


F6011: 


MOV 
JSR 


MoV 
JSR 


#4, BYTNUM 
PC, MONDAT 


#2, BYTNUM 
PC, MONDAT 


#1,BYTNUM 
PC, MONDAT 


;# OF BYTES PER MODULE 
; SUBROUTINE TO MONITOP DATA CONTINUOUSLY 


+# OF BYTES PER MODULE 


;# OF BYTES PER MODULE 


#4,BYTNUM; MODULE IS 4 BYTE LONG 
#4.RO ;SET A BYTE COUNTER 


PC, SETPTN 
PC 


#1, BYTNUM 
PC, SETPTN 
PC 


#2, BYTNUM 
PC, SETPTN 
PC 


»ROUTINE TO OUTPUT ANY PATTERN TOOUT MODULE 


*MODULE IS 2 BYTE LONG 


SEQ 0051 


. MAIN. 


DVPCRA. 


MACY11 


Pil 


011746 
011746 
011752 
011756 
011764 
011772 
011774 
012002 
012004 
012010 
012014 
012016 
012022 
012026 


012030 
012030 
012034 
012040 
012046 
012054 
012056 
012064 
012066 
012072 
012076 
012100 
012104 
012110 


30(1046) 
25-OCT-77 


013746 
013746 
117737 
123737 
001404 
012737 
104007 
005237 
005337 
001360 
012637 
012637 
000207 


013746 
013746 
117737 
123737 
001404 
013737 
104011 
005237 
005337 
001360 
012637 
012637 
000207 


25-OCT-77 10 
10: 02 


002004 
002006 
170024 
001124 


002006 


002006 
002004 


002006 
002004 


001126 
001126 


002012 


002004 
002006 
167742 
001124 


002006 


002006 
002004 


001126 
001126 


002012 


002006 


602004 


:10 PAGE 50 
SUBROUTINES 


.SBTTL SUBROUTINES 


TSTBYT: 


28: 


TSTONE: 


2$: 


18: 


+ THIS SUBROUTINE 


1S USED TO CHECK IF 


+A BITE OF DATA IN SGDDAT=SBDDAT. 


+1T CHECK 

; BYTNUM 

MOV BYTNUM, - (SP) 
MOV TADDR, - (SP) 
MOVB dTADOR, SBODAT 
CMPB S$GDDAT. SBDDAT 
BEQ 1$ 

MOV TADOR, TBADOR 
ERROR 7 

INC TADOR 

DEC BYTNUM 

BNE 2$ 

MOV (SP )+, TADDR 
MOV (SP )+, BYTNUM 
RTS Cc 

MOV BYTNUM, -(SP) 
MOV TADDR, - (SP) 
MOVB 2TADOR. SBODAT 
CMPB SGDDAT. SBDDAT 
BEQ 1$ 

MoV TADOR. TBADOR 
ERROR 11 

INC DOR 

DEC BYTNUM 

BNE 2$ 

MOV (SP )+, TADDR 
Mov (SP)+, BYTNUM 
RTS PC 


S AS MANY BYTES AS SPECIFIED 


;+PUSH BYTNUM ON STACK 
++PUSH TADDR ON STACK 
+MOV DATA TO BDDAT 

+ 1S DATA OK 


+NEXT BYTE 


;;POP STACK INTO TADOR 
;;POP STACK INTO BYTNUM 


;;PUSH BYTNUM ON STACK 
;;PUSH TADDR ON STACK 
;MOV DATA TO BODAT 

> 1S DATA OK 


;NEXT BYTE 


++POP STACK INTO TADOR 
+;POP STACK INTO BYTNUM 


SEQ 0052 


MAIN. MACY11 30(1046) 25-OCT-77 10:10 PAGE 51 
77 10: 02 


DVPCAR. P11 25-0CT- SUBROUTINES SEQ 0053 
1959 + THIS SUBROUTINE 1S USED TO SET AS MANY 
Foy BYTES AS SPECIFIED BY BYTNUM IN MUT 
1962 012112 SETBYT 
1963 012112 013746 002004 MoV BYTNUM, - (SP) ++PUSH BYTNUM ON STACK 
1964 012116 013746 002006 MOV TADOR, - (SP) ++PUSH TADDR ON STACK 
1965 012122 113777 001124 167656 1%: MOVB $GDDAT,dTADDR ~;SET DATA IN MUT 
1966 012130 005237 002006 INC TADOR 
1967 012134 005337 002004 DEC BYTNUM 
1968 012140 001370 BNE 1$ 
1969 012142 012637 002006 MOV (SP) +, TADDR ;+POP STACK INTO TADOR 
1970 012146 012637 002004 MOV (SP) +, BYTNUM ;;POP STACK INTO BYTNUM 
1971 012152 000207 RTS PC 






















. MAIN. 


1972 
1973 
1974 
1975 


MACY11 30(1046) 


DVPCAR. P11 25-OCT-77 10:02 


012154 
012156 
012162 
012164 
012166 
012172 


012174 


012176 


012200 
012202 
012206 
012210 
012212 
012216 
012220 
012222 
012224 
012226 





005004 
012703 
022301 
001404 
062704 
005713 
001372 
000207 


005004 
012703 
022301 
001404 
062704 
005713 
001372 
010022 
010125 
000207 





001700 


000006 


001700 


000002 


25-OCT-77 


10:10 PAGE 52 
SUBROUTINES 


GENCOD: 
3$: 


i$: 


TABLE: 
34: 


1S: 





; THESE TWO SUBROUTINES ARE USED IN MAPPING THE SYSTEM 


R4 
#GENER, R3 
(R3)+,R1 


R4 
#GENER, R3 
(R3)+,R1 
1$ 


RO, (R2)+ 
Ri, (R5)+ 
PC 


¢c 5 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


012230 
012236 
012242 
012246 
012252 
012260 
012262 
012270 
012276 
012300 
012306 
012314 
012316 
012322 
012326 
012332 
012340 
012346 


012350 
012350 


012352 
012356 


113777 


000207 


000002 


005237 
000002 


25-OCT-77 10 
25-OCT-77 10:02 


001124 
001126 
001766 
001766 
001766 


167540 
002022 


000200 
001124 


000002 
001124 
001126 
177400 
177400 


002044 


167570 


000007 


001126 
000005 


001126 
001126 


001126 
901124 


:10 PAGE 53 
SUBROUTINES 


+ THIS SUBROUTINE CHECKS IF A BIT GET SET AND CLEAR IN CSR 


BITSET: 


64S: 


23: 


15: 


NOCLK: 


COUNT: 


MOVB SGDDAT. aCSR 
CLR S$BDDAT 


CLR YLOOP 
INC YLOOP 
CMP YLOOP, #7 
BNE 64S 


MOVB aCSR, $BDDAT 
CMP TNUMB, #5 


23 
BICB #FBIT, SBODAT 
CMPB S$GDDAT, S$BDDAT 


1° 

ADD 2, (SP) 

SWAB SGODAT 

SWAB S$BDDAT 

BIC #177400, SBDDAT 
BIC ig ata 


;LOAD TESTED BIT 
;WAIT 


;READ CSR 


COMPARE THEME 
NO ERROR 


THIS 1S INTERRUPT RUTINE FOR LINE CLOCK 
;WHEN DIAGNOSTIC DOES NOT USE IT 


RTI 


>; THIS 1S INTERRUPT RUTINE FOR CLOCK TO COUNT TICKS 


INC CLK 
RTI 


SEQ 0055 


. MAIN. 


MACY11 30(1046) 
25-OCT-77 10: 02 


DVPCPR. P11 


012360 
012364 
012370 
012376 
012400 
012406 
012414 
012422 
012426 
012432 
012440 
012442 
012444 


012446 
012452 
012456 
012462 
012464 
012472 
012476 
012502 
012510 
012512 
012520 
012524 
012539 
012536 
012540 
012544 
012546 


012550 
012554 


005037 
005037 
132777 
001422 
117737 
053737 
152777 
105777 
005237 
032737 
001753 
104023 
000207 


117746 
042716 
122716 
001030 
152777 
005037 
005237 
023727 
001372 
152777 
005037 
005237 
023727 
001372 
000137 
005726 
000207 


004737 
000002 


25-OCT-77 10 


002052 
002054 
000200 


167424 
002042 
000001 
167424 
002054 
000400 


166474 
000200 
000003 


000002 
001766 
001766 
001/766 


000002 
001766 
001766 
001766 


003002 


012446 


167430 


002052 
002052 
167404 


002054 


167334 


000007 
167306 


000007 


:10 PAGE 54 
SUBROUTINES 


CLRINT: 
23: 


CNTRC: 


64S: 


65S: 


KB INT: 


; THIS SUBROUTINE CLEARS UNEXPECTED INTERRUPTS FROM DBUS 
CLR TEMPS 


CLR TEMP4 
BITB #FBIT. OCSR 


1$ 
MOVB OIAR, TEMPS 
BIS BASE. TEMPS 
BISB #RBIT, ACSR 
TSTB OTEMPS 
INC TEMP4 
BIT #8178, TEMP4 
2% 


ERROR 23 
RTS PC 
> THIS SUBROUTINE CHECKS 


MOVB OSTKB, - (SP) 
Bic #BIT7, (SP) 
CMPB #3, (SP) 


BNE 1$ 

BISB #CBIT, dCSR 
CLR YLOOP 

INC YLOOP 

CMP YLOOP, #7 
BNE 64S 

BISB aCBIT, aCSR 
CLR YLOOP 

INC YLOOP 

CMP YLOOP, #7 
BNE 65$ 

JMP MONIT 

TST (SP)+ 

RTS PC 

JSR PC, CNTRC 
RTI 


fe INTERRUPT PENDING? 
iN 


; UNABLE TO CLEAR INTERRUPT 
FOR CONTROL C 


+ CLEAR PARITY BIT 
;CONTROL C? 


;NO 
sSET C BIT 
> WAIT 


;DO !T AGAIN 
>WAIT 


SEQ 0056 


. MAIN. 


DVPCAR. P11 


MACY11 30(1046) 
25-OCT-77 10:02 


012556 
012556 
012562 
012566 
012574 
012602 
012604 
012612 
012616 
012622 
012624 
012630 
012634 
012636 
012642 
012646 
012652 


013746 
013746 
117737 
123737 
001410 
013737 
012637 
012637 
000207 
005237 
005337 
001354 
012637 
012637 
062716 
000207 


25-OCT-77 10: 


002050 
002004 
167256 
001124 


002005 
002004 
002050 


002050 
002004 


002004 
002050 
000002 


001126 
001126 


002012 


10 PAGE 


55 


SUBROUTINES 


+ THIS SUBROUTINE 1S USED IN THE LOOP TEST 
;AND IT IS SIMILAR TO THE TSTBYT ROUTINE 


CHKBYT: 


23: 


13: 


TEMP 1, -(SP) 
BYTNUM, - (SP) 
aTEMP1, SBODAT 
$GODAT, SBDDAT 


1$ 

TADDR, TBADOR 
(SP) +, BYTNUM 
(SP)+, TEMP 4 


PC 

TEMP 1 

BYTNUM 

2$ 

(SP )+, BYTNUM 
(SP)+, TEMP1 
#2, (RO) 

PC 


SEQ 0057 


++PUSH TEMP1 ON STACK 
+;PUSH BYTNUM ON STACK 
+READ DATA FROM INPUT MODULE 


+;POP STACK INTO BYTNUM 
;;POP STACK INTO TEMP1 
7 ERROR 

;GO TO NEXT BYTE 


;;POP STACK INTO BYTNUM 
+;POP STACK INTO TEMP1 
BYPASS ERROR IN MAINLINE CODE 






























MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 56 
DVPCRA. P11 25-0CT-77 10: 02 SUBROUTINES SEQ 0058 


2090 + THIS SUBROUTINE ALLOWS FIELD ENGINEER TO SELECT ANY 
2091 ;DATA PATTERN FOR OUTPUT MODULES 
2092 
2093 
2094 012654 142777 O00020 167144 SETPTN: BICB #OB IT, CSR 
2095 012662 142777 QO0004 167136 BICB #GBIT, dCSR 
2096 012670 104401 021323 1$: TYPE ,MASS19 + SELECT A DATA PATTERN 
2097 012674 104410 RDOCT 
2098 012676 012637 001124 MOV (SP) +, S$GDDAT ;;POP STACK INTO SGDDAT 
2099 012702 113777 001124 167076 MOVB S$GODAT, aATADDR ;OUTPUT PATTERN TO MODULE 
2100 012710 005237 002006 INC TADDR 
2101 012714 005337 002004 DEC BYTNUM 
2102 012720 001363 BNE 1$ 
eo 012722 000207 RTS PC 
104 
2105 ; THIS SUBROUTINE 1S USED IN FIELD TEST TO CONTINUOUSLY 
2106 ;MONITOR DATA FROM INPUT MODULE. DATA 1S PRINTED ONLY 
2107 ;DURING FIRST PASS UNLESS THERE |S A CHANGE IN THE DATA 
2108 012724 005001 MONDAT: CLR R1 CLEAR PASS REGISTER 
2109 012726 013700 002004 6$: MOV BYTNUM, RO ;# OF BYTES PER MODULE 
2110 012732 C05300 5S: DEC RO 
2111 012734 117737 167046 001124 15%: MOVB @TADDR.SGDDAT ;STORE DATA 
2112 012742 005701 TST R1 ;1S 1T FIRST PASS? 
2113 012744 001016 BNE 4$ +NO 
2114 012746 117760 167034 001770 2%: MOVB @TADOR, OBUFF (RO) STORE DATA IN TABLE 
2115 012754 013746 002006 MOV TADOR, - (SP) +, SAVE TADDR FOR TYPEOUT 
2116 012760 104402 TYPCC +;GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
2117 012762 104401 021645 TYPE , MASS27 COLON & TAB 
2118 012766 013746 001124 MOV S$GODAT, - (SP) >; SAVE SGDDAT FOR TYPEOUT 
2119 012772 104402 TYPOC +;GO TYPE--OCTAL ASCIICALL DIGITS) 
2120 012774 104401 020417 TYPE , MASSO CR & LF 
2121 013000 000404 BR 3$ 
2122 013002 123760 001124 901770 45%: CMPB SGDDAT. DBUFF RO) ANY CHANGE IN DATA ? 
2123 013010 001356 BNE 2$ > YES 
2124 013012 005237 002006 3$: INC TADOR ;GO TO NEXT BYTE IN MODULE 
2125 013016 005709 TST RO LAST BYTE IN MODULE ? 
2126 013020 001344 BNE 5$ >NO 
2127 013022 163737 002004 002006 SUB BYTNUM, TADDR 7RESTORE ADDRESS OF MUT 
2128 013030 004737 012446 JSR PC, CNTRC > TYPE CONTROL C TO PETURN TO MONITOR 
2129 013034 012701 000001 MOV #1,R1 >NEW PASS 


013040 000732 BR 6S 





MAIN. MACY11 
DVPCRA. P11 


013042 
013042 
013050 
013054 
013060 
013066 
013070 
013076 
013102 
013106 
013114 
013116 
013122 
013124 
013132 
013140 
013144 
013150 
013154 
013162 
013164 
013172 
013176 
013200 
013206 
013214 
013220 
013224 
013230 
013236 
013240 
013246 
013252 
013254 
013262 
013270 
013274 
013300 
013304 
013312 
013314 
013322 
013326 
013330 
013336 
013344 
013350 
013354 
013360 
013366 
013370 
013376 


3011046) 
25-OCT-77 


152777 
005037 
005237 
023727 
001372 
152777 
005037 
00&237 
023727 
001372 
020127 
001131 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 


25-OCT-77 10 
10: 02 


000002 
001766 
001766 
001766 


000002 
001766 
001766 
001766 


000141 


000125 
000004 
012112 
001766 
001766 
001766 


000004 
012556 


000252 
000004 
012112 
001766 
001766 
001766 


000004 
012556 


000377 
000004 
012112 
001766 
001766 
001766 


000004 
012556 


000000 
000004 
012112 
001766 
001766 
001766 


000004 
012556 


166756 


000007 
166730 


000007 


001124 
002004 


001777 


002004 


001124 
902004 


001777 


002004 


001124 
002004 


001777 


002004 


001124 
002004 


001777 
002004 


: 10 PAGE 


57 


SUBROUTINES 


LOPTST: 


64S: 


655: 


665: 


67S: 


68S: 


695: 


>; THIS SUBROUTINE 1S USED TO WRAP AROUND DATA “LOOP TEST” 


ae 


64 

#CBIT, aCSR 
YLOOP 

YLOOP 
YLOOP, #7 
65$ 

R1.#141 71S 


1$ 

#125, $GODAT 
#4, BYTNUM 
PC, SETBYT 
YLOOP 

YLOOP 
YLOOP, #1777 
665 

#4, BYTNUM 
PC, CHKBYT 


21 

#252, $GDDAT 
#4, BYTNUM 
PC, SETBYT 
YLOOP 

YLOOP 
YLOOP, #1777 
67% 

#4, BYTNUM 
PC, CHKBYT 
21 

#377, S$GDDAT 
#4, BYTNUM 
PC, SETBYT 
YLOOP 


YLOOP 
YLOOP, #1777 
68$ 

#4, BYTNUM 
PC, CHKBYT 
21 

#0, SGDDAT 
#4, BYTNUM 
PC, SETBYT 
YLOOP 

YLOOP 
YLOOP, #1777 
695 

#4, BYTNUM 
PC, CHKBYT 


SET C BIT 
; WAIT 


, 


;D0 IT AGAIN 
; WAIT 


1T 45010? 
; YES 


;OUTPUT DATAT 
;WAIT 


COMPARE DATA 


, OUTPUT DATAT 
> WAIT 


> COMPARE DATA 


;QUTPUT DATAT 
> WAIT 


COMPARE DATA 


;QUTPUT CATAT 
> WAIT 


| 
i 


>; COMPARE DATA 


PATTERN 


PATTERN 


PATTERN 


PRTTERN 


SEQ 0059 | 


MAIN. MACY11 
DVPCRR. P11 


013402 
013404 
013406 
013406 
013414 
013422 
013426 
013432 
013436 
013444 
013446 
013454 
013460 
013462 
013470 
013476 
013502 
013506 
013512 
013520 
013522 
013530 
013534 
013536 
013544 


013566 
013574 
013576 
013604 
013610 
013612 
013620 
013626 
013632 
013636 
013642 
013650 
013652 
013660 
013664 
013666 


013552 
013556 
013562 


3011046) 
25-OCT-77 


104021 
000530 


012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
012737 
012737 
004737 
005037 
005237 
023727 
001372 
012737 
004737 
104021 
000207 


25-OCT-77 
10: 02 


000125 
000002 
012112 
001766 
001766 
001766 


000002 
012556 


000252 
000002 
012112 
001766 
001766 
001766 


000002 
012556 


000377 
000002 
012112 
001/66 
001766 
001766 


000002 
012556 


000000 
o0c0002 
012112 
001766 
001766 
001766 


000002 
012556 


001124 
002004 


001777 


002004 


001124 
002004 


001777 


002004 


001124 
002004 


001777 


002004 


001124 
002004 


001777 
02004 


10:10 PAGE 58 


SUBROUTINES 


1$: 


708: INC 


71%: INC 


723: INC 


735: INC 


2$.. RTS 


21 
2$ 


#125, SGDDAT 
#2, BYTNUM 
PC, SETBYT 
YLOOP 


YLOOP 
YLOOP, #1777 
70% 

#2, BYTNUM 
ene 


1 
#252, SGDDAT 
#2, BYTNUM 
PC. SETBYT 
YLOOP 


YLOOP 
YLOOP, #1777 
71% 

#2, BYTNUM 
er 


1 
#377, SGDDAT 
#2, BYTNUM 
PC, SETBYT 
YLOOP 
YLOOP 
YLOOP, #1777 
728 


#2, BYTNUM 
PC, CHKBYT 
21 

#0, SGDDAT 
#2, BYTNUM 
PC, SETBYT 
YLOOP 


YLOOP 
YLOOP, #1777 
735 

#2, BYTNUM 
PC, CHKBYT 


21 
PC 


; OUTPUT DATAT 
; WAIT 


; COMPARE DATA 


; OUTPUT DATAT 
> WAIT 


; COMPARE DATA 
; OUTPUT DATAT 
; WAIT 

; COMPARE DATA 
; OUTPUT DATAT 


WAIT 


> COMPARE DATA 


PATTERN 


PATTERN 


PATTERN 


PATTERN 


ne 
i 


SEQ 0060 


. MAIN. 


MACY11 30(1046) 


DVPCPA. P11 


013670 
013670 


013672 
013676 
013704 
013710 
013714 
013716 
013720 
013724 
013726 
013726 
013732 
013734 
013742 
013744 
013752 
013754 
013760 
013764 
013770 
013774 
014000 
014006 
014014 
014020 
014022 
014022 
014024 
014026 
014030 
014032 
014034 
014036 
014040 
014042 
014044 
014046 
014050 
014052 
014054 
014056 
014060 


25-OCT-77 


25-OCT-77 10: 02 


000416 


013746 
012737 
005737 
012637 
000421 
022626 
012637 
000407 


105737 
001412 
032777 
001404 
013737 
000415 
105037 
105237 
011637 
011637 
005037 
112737 
013777 
013716 
000002 


005416 
005550 
005614 
005660 
006054 
006124 
006170 
006234 
006400 
006674 
006776 
007442 
007634 
010026 
010324 
011154 


000004 
013716 
177060 
000004 


000004 


001103 
001u00 
001110 


001103 
001102 
001106 
001110 
001172 
000001 
001102 
001106 


000004 


165176 
001196 


001115 
165126 


10:10 PAGE 59 


SCOPE HANDLER ROUTINE 


.SBTTL SCOPE HANDLER ROUTINE 


3p RXXAAAAAAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AA AA AAAS AA AA AAAS 


+XTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WiLL INCREMENT 


;XAND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: 0>) 
;XAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 
+XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 


; ¥SWO9=1 
+ 


SSCOPE: 
;RRRRASTART OF CODE FOR THE XOR 
BR 6% 


SXTSTR: 


5S: 


7S: 


4S: 
SSVLAD: 


SOVER: 


SSWO8TBL: 


SCOPE 


LOOP ON ERROR 


;;SCOPE=I10T 


OFERRVEC, - (SP) 
#5%, QRERRVEC 


#177060 


(SP) +, D#ERRVEC 


SSVLAD 
(SP)+, (SP)+ 


(SP) +, DRERRVEC 


TESTERSRRRE 
3; 1F RUNNING ON THE "XOR" TESTER CHANGE 
3; THIS INSTRUCTION TO A "NOP" (NOP=240) 
3;SAVE THE CONTENTS OF THE ERROR VECTOR 
+; SET FOR TIMEOUT 
++ TIME OUT ON XOR? 
;;>RESTORE THE ERROR VECTOR 
+7GO TO THE NEXT TEST 
;;CLEAR THE STACK AFTER A TIME OUT 
++ RESTORE THE ERROR VECTOR 
LOOP ON Mn PRESENT TEST 


7$ 
CODE FOR THE KOR. TESTERSHAAR 


SERFLG 
S$SVLAD 
#B1TO9, dSWR 


4$ 
SLPERR, SLPADR 
SOVER 


SERFLG 
STSTNM 
(SP), SLPADR 
(SP), SLPERR 
SESCAPE 

#1, SERMAX 


STSTNM. dDISPLAY 


SLPADR, (SP) 


TST1+2 
TST2+2 
TST3+2 
TST4+2 
TST5+2 
TST6+2 
T3T7+2 
TST10+2 
TST11+2 
TST12+2 
TST13+2 
TST14+2 
TST15+2 
TST16+2 
TST17+2 
TST20+2 


++ HAS AN ERROR OCCURRED? 
>BR IF NO 
3; LOOP ON ERROR*® 
+;BR IF NO 
++SET LOOP ADDRESS TO LAST SCOPE 


+>ZERO THE ERROR FLAG 

+;COUNT TEST NUMBERS 

+;SAVE SCOPE LOOP ADDRESS 

++ SAVE ERROR LOOP ADDRESS 

;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
+;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
+-DISPLAY TEST NUMBER 

;;FUDGE RETURN ADDRESS 

+7FIXES PS 


+; STARTING ADDRESS OF TEST 1 
++ STARTING ADDRESS OF TEST 2 
+; STARTING ADDRESS OF TEST 3 
+; STARTING ADDRESS OF TEST 4 
+;STARTING ADDRESS OF TEST 5 
+;STARTING ADDRESS OF TEST 6 
+;STARTING ADDRESS OF TEST 7 
++ STARTING ADDRESS OF TEST 1 
+;START!NG ADDRESS OF TEST 1 
+ STARTING ADDRESS OF TEST 1 
+; STARTING ADDRESS OF TEST 1 
+STARTING ADDRESS OF TEST 14 
:: STARTING ADDRESS OF TEST 15 
+, STARTING ADDRESS OF TEST 16 
+; STARTING ADDRESS OF TEST 17 
+; STARTING ADDRESS OF TEST 20 


SEQ 0061 


MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 60 


DVPCRR. P11 25-OCT-77 10:02 TTY INPUT ROUTINE SEQ 0062 
oo .SBTTL TTY INPUT ROUTINE 
2289 5p MXKKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA RARE AA AA AA AA EEE 
2290 .ENABL LSB 
2291 
2292 .DSABL LSB 
2293 
2294 
2295 3p AEXKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AA AA AAA AAA EARS 
2296 ;XTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2297 > KCALL: 
2298 ;x ROCHR +; INPUT A SINGLE CHARACTER FROM THE TTY 
2299 ix RETURN HERE ;;+CHARACTER IS ON THE STACK 
2300 ix ;+WITH PARITY BIT STRIPPED OFF 
2301 ; 
2302 
2303 014062 011646 SROCHR: MOV (SP), -CSP) ;+PUSH DOWN THE PC 
2304 014064 016666 000004 000002 MOV 4C(SP), 2(SP) +;SAVE THE PS 
2305 014072 105777 165046 1$: TSTB aSTKS ;;WAIT FOR 
2306 014076 100375 BPL 1% +A CHARACTER 
2307 014100 117766 165042 Q00004 MOVB OSTKB. 4¥(SP) ++READ THE TTY 
2308 014106 042766 177600 900004 BIC # €<4177>,4(SP) ¢;GET RID OF JUNK IF ANY 
2309 014114 026627 000004 9000023 CMP 4C(SP), #23 ++ 1S 1T A CONTROL-S? 
2310 014122 001013 BNE 3$ +;BRANCH IF NO 
2311 014124 105777 165014 23: TSTB aSTKS +;WAIT FOR A CHARACTER 
2312 014130 100375 BPL 2$ +;LOOP UNTIL ITS THERE 
2313 014132 117746 165u10 MOVB aSTKB, -(SP) ;;GET CHARACTER 
2314 014136 042716 177600 BIC # C177, (SP) +;MAKE IT 7-BIT ASCII 
2315 014142 022627 000021 CMP (SP)+, #21 +2 1S tT A CONTROL-Q? 
2316 014146 001366 BNE 2$ +; 1F NOT DISCARD IT 
2317 014150 000750 BR 1$ ++ YES, RESUME 
2318 014152 026627 O00004% 000140 3%: CMP 4CSP), #140 71S 1T UPPER CASE? 
2319 014160 002407 BLT 4$ +;BRANCH IF YES 
2320 014162 026627 GO0004 000175 CMP 4CSP), #175 71S IT A SPECIAL CHAR? 
2321 014170 003003 BGT 4$ +;BRANCH IF YES 
2322 014172 042766 O00040 200004 Bic #40, 4 (SP) +,MAKE IT UPPER CASE 
2323 014200 000002 4S: RTI +;GO BACK TO USER 
2324 MTT 
2325 /¥THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
2326 * XCALL: 
2327 eS RDLIN +; INPUT A STRING FROM THE TTY 
2328 ee RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
2329 ;k +; TERMINATOR WILL BE A BYTE OF ALL O'S 
2330 
2331 014202 010346 SROLIN: MOV R3.- (SP) ++ SAVE RZ 
2332 014204 012703 014310 1$: MOV aSTTYIN, RS +;GET ADDRESS 
2333 014210 022703 014320 23: CMP RSTTYINt8..R3 7; BUFFER FULL? 
2334 014214 101405 BLOS 4§ +7BR IF YES 
2335 014216 104406 RDCHR ;;GO READ ONE CHARACTER FROM THE TTY 
2336 014220 112613 MOVB (SP )+, (R3) +,GET CHARACTER 
2337 014222 122713 000177 10S: CMPB #177, (R3) 71S tT A RUBOUT 
2338 014226 001003 BNE 3$ +7SKIP IF NOT 
2339 014230 104401 001174 4S: TYPE , SQUES +s TYPE A *?° 
2340 014234 000763 BR 1$ >; CLEAR THE BUFFER AND LOOP 
2341 014236 111337 014306 3: MOVB (R3), 9% +;ECHO THE CHARACTER 
2342 014242 104401 014306 TYPE 98 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


014246 
014252 
014254 
014260 
014264 
014266 
014270 
014276 
014304 
014306 
014307 
014310 
014320 
014325 
014332 
014340 
014343 
014350 


014354 
014356 
014364 
014366 
014370 
014372 
014374 
014376 
014402 
014404 
014406 
014410 
014412 
014416 
014420 
014424 
014426 
014430 
014432 
014434 
014436 
014440 
014442 
014446 


25-OCT-77 10: 


122723 
001356 


011646 
016666 
010046 
010146 
010246 
104407 
012600 
010037 
005001 
005002 
112046 
001420 
122716 
003026 
122716 
002423 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 


02 

000015 
177777 
001176 
000004 
014310 
005015 
006507 


047040 
000040 


000004 


014502 


000060 
000067 


177770 


yas 10 


000002 
000004 


000 
000012 
020122 


053505 


000002 


: 10 PAGE 61 
TTY INPUT ROUTINE 


CMPB #15, (R3)+ 
2$ 


BNE 

CLRB ~1(R3) 
TYPE - SLF 

MOV (SP)+,R3 


MOV (SP), -(SP) 
MoV 4(SP), 2¢SP) 


ae ASTTYIN, 4(SP) 
9S: .BYTE O 

.BYTE O 
STTYIN: . BLKB 


8. 
SCNTLU: .ASCIZ 7 U/<15><12> 
SCNTLG: .ASCIZ 7 G/<15><12> 
SMSWR: .ASCIZ <15><12>/7SWR = 7 
SMNEW: .ASCIZ 7 NEW = 7 
.SBTTL READ AN OCTAL NUMBER FRO 


J 5 MAXKKAAAAA AAA AAA AAA AAA A AE 


;; CHECK FOR RETURN 

;;LOOP IF NOT RETURN 

;;CLEAR RETURN (THE 15) 

7, TYPE A LINE FEED 

+;RESTORE R3 

;;ADJUST THE STACK ANC PUT ADDRESS OF THE 
ae FIRST ASCII CHARACTER ON IT 


7+RETURN 

>; STORAGE FOR ASCII! CHAR. TO TYPE 
7+ TERMINATO 

;;RESERVE 8 BYTES FOR TTY INPUT 
7; CONTROL "U" 

+; CONTROL "G" 


M THE TTY 
XXKKAKAAAAAAKAA AAA AAA AAA AAA AAA AAAS 


;XTHIS ROUTINE WILL READ AN OCTAL (ASCII!) NUMBER FROM THE TTY AND 


+; CHANGE IT TO BINARY. 
;XTHE INPUT CHARACTERS WILL BE C 


HECKED TO INSURED THEY ARE LEGAL 


;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 


;XFOLLOWED BY A CARRIAGE RETURN- 
oor BE RETYPED. THE INPUT IS 
> XCALL: 


;x RDOCT 

:x RETURN HERE 

x 

SRDOCT: MOV (SP), -(SP) 
MoV 4C(SP), 2(SP) 


MOV RO, -(SP) 


MOV R1,-(SP) 
18 ROLIN 
MOV (SP)+,RO 
MOV RO. 58 
CLR Ri 
CLR R2 
25: MOVB (RO)+, -(SP) 
BEQ 34 
CMPB #'O, (SP) 
BGT 4% 
CMPB #'7, (SP) 
BLT 4% 
ASL Ri 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC & C7, (SP) 
ADD (SP)+,R1 


LINE FEED. THE COMPLETE NUMBER MUST 
TERMINATED BY TYPING A CARRIAGE RETURN. 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;+HIGH ORDER BITS ARE IN SHIOCT 


;;PROVIDE SPACE FOR THE 

+; INPUT NUMBER 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;READ AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 
;;AND SAVE IT 

+;CLEAR DATA WORD 


;;PICKUP THIS CHARACTER 

7; 1F ZERO GET OUT 

;;MAKE SURE THIS CHARACTER 
7; 1S AN OCTAL DIGIT 

‘se? 

peo) 

3748 


+;STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 


SEQ 0063 
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2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 


014450 
014452 
014454 
014460 
014464 
014466 
014470 
014472 
014474 
014476 
014500 
014502 
014504 
014510 
014512 


014514 
014514 
014520 
014522 
014530 
014534 
014540 
014546 
014554 
014562 
014564 
014570 
014574 
014574 
014600 
014602 
014604 
014612 
014614 
014620 
014624 
014626 
014632 
014632 
014640 
014642 
014644 
014644 


25-OCT-77 


25-OCT-77 10: 02 


000756 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
005726 
105010 
104401 
000000 
104401 
000730 
000000 


105237 
001775 
013777 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104401 


005777 
100001 
000000 
032777 
001402 
013716 
005737 
001402 
013716 


022737 
001001 
000000 


000002 


000012 
014512 


001174 


001103 
001102 
001112 
001116 
000002 
164344 
020000 


014646 
001175 


164340 


001000 


001110 
001172 


001172 
004300 


164412 


001116 
001114 
164356 


164326 


000042 


nm 5 


10:10 PAGE 


62 
READ AN OCTAL NUMBER FROM THE TTY 


BR 2$ 

3: TST (SP )+ 
MOV Ri, 12(SP) 
MOV R2, SHIOCT 
MOV (SP)+,R2 


MOV (SP)+,R1 
MOV (SP)+,R0 
RTI 

4$: TST (SP)+ 
CLRB (RO) 
TYPE 

5S: . WORD 


0 
TYPE » SQUES 
1$ 


BR 
SHIOCT: .WORD O 
.SBTTL ERROR HANDLER ROUTINE 


+; LOOP 
3; CLEAN TERMINATOR FROM STACK 
+; SAVE THE RESULT 


;;POP STACK INTO R2 

+;POP STACK INTO R1 

;,POP STACK INTO RO 
;;RETURN 

3; CLEAN PARTIAL FROM STACK 
;;SET A TERMINATOR 

;; TYPE UP THRU THE BAD CHAR. 


; ; “_ aa - "LF 
7; TRY AGA 
++ HIGH ORDER BITS GO HERE 


js RXRAAAAAA AAA AAA AA AAA AAA AAA AAA AA AAA AA AAA AA AAA AAA AAA AA AAA AA AAAS 
;XTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;XSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO SERRTYP ON ERROR 


;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


+ xSW15=1 HALT ON ERROR 

+ xSW13=1 INHIBIT ERROR TYPEOUTS 

; KSWO9=1 LOOP ON ERROR 

> XCALL 

eS ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

SERROR: 

7$: INCB SERFLG ;+SET THE ERROR FLAG 
BEQ 7$ +;DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM, ADISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
INC SERTTL +7 1NC THE ERROR COUNT 
MOV (SP), SERRPC ++GET ADDRESS OF ERROR INSTRUCTION 


MOVB ASERRPC, SITEMB 
BIT #BIT13. OSWR 


208 
JSR PC, SERRTYP 
TYPE - SCRLF 


20S: 
23: TST OSWR 
BPL 3$ 
HALT 
3s: BIT #8 1T09. dSWR 
BEQ 4% 
MOV SLPERR. (SP) 
4S: TST SESCAPE 
BEQ 553 
MOV SESCAPE. (SP) 
5S. 
CMP #SENDAD, #42 
BNE 6$ 
HALT 
6$: 


+;STRIP AND SAVE THE ERROR ITEM CODE 
3; SKIP TYPEOUT IF SET 

+;SKIP TYPEOUTS 

+:GO TO USER ERROR ROUTINE 


;;HALT ON ERROR 

7;SKIP IF CONTINUE 

;;HALT ON ERROR! 

;;LOOP ON ERROR SWITCH SET? 

7;BR IF NO 

+; FUDGE RETURN FOR LOOPING 
;;CHECK FOR AN ESCAPE ADDRESS 
;;BR IF NONE 

;; FUDGE RETURN RODRESS FOR ESCAPE 


+,ACT-11 AUTO-ACCEPT? 
= iF NO 


4a 


>;RETURN 


SEQ 0064 
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2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 


014646 
014646 
014652 
014654 
014656 
014662 


014664 


014670 
014672 
014674 
014676 
014700 
014702 
014704 
014710 
014714 
014716 
014720 
014722 
014726 
014732 
014734 
014736 
014740 
014744 
014746 
014750 
014752 
014756 
014760 
014760 
014762 
014764 
014766 
014770 
014774 
014776 


25-OCT-77 


25-OCT-77 10: 02 


104401 
010046 
005000 
153700 
001004 


013746 


104402 
000426 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 


013046 
104402 
005710 
001770 
104401 
000771 
020040 
015002 


001175 


001114 


001116 


002112 
014720 


001175 
014736 


001175 


001175 


014776 
000 


N 5 
ERROR MESSAGE TYPEOUT ROUTINE 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
jj MEXKAAAAAAAAA AAA AAA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AA AAA AAA 
;XTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
;KERROR 1S TO BE REPORTED. IT THEN OBTAINS. FROM THE “ERROR TABLE” (SERRTB), 
;XAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


10:10 PAGE 63 


, SCRLF 3; "CARRIAGE RETURN" & “LINE FEED" 
MoV RO, -(SP) +; SAVE RO 
CLR RO ;;PICKUP THE ITEM INDEX 
BISB a#$1TENB,. RO 
BNE 1$ 7; 1F tTEM NUMBER IS ZERO. JUST 


++ TYPE THE PC OF THE ERROR 
MoV SERRPC, - (SP) ++SAVE SERRPC FOR TYPEOUT 
+,ERROR ADDRESS 


TYPOC ;;GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 6$ ;;GET OUT 
1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO Re WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #SERRTB. RO ;;FORM TABLE POINTER 
MOV (RO)+, 2$ ;;PICKUP "ERROR MESSAGE” POINTER 
BEQ 35 ;;SKIP TYPEOUT IF NO POINTER 
TYPE +, TYPE THE “ERROR MESSAGE” 
25: .WORD QO 3; "ERROR MESSAGE” POINTER GOES HERE 
TYPE , SCRLF 3; "CARRIAGE RETURN" & “LINE FEED" 
35: MOV (RO)+,4S >;PICKUP "DATA HEADER" POINTER 
BEQ 55 ;;SKIP TYPEOUT IF O 
TYPE +2 TYPE THE “DATA HEADER” 
4S: .WORD O ;;"DATA HEADER" POINTER GOES HERE 
TYPE , SCRLF 3; "CARRIAGE RETURN" & “LINE FEED” 
5S: MOV (RO). RO ;;PICKUP “DATA TABLE” POINTER 
BNE 7$ ;:GO TYPE THE DATA 
6S: MoV (SP)+,RO ;;RESTORE RO 
TYPE , SCRLF 3; "CARRIAGE RETURN” & “LINE FEED" 
RTS PC ;;RETURN 
79: 
MOV a(RO)+,-(SP) >; SAVE a(RO)+ FOR TYPEOUT 
TYPOC ;;GO TYPE--OCTAL ASCIICALL DIGITS) 
TST (RO) ;;1S THERE ANOTHER NUMBER? 
BEQ 6% 7;BR IF NO 
TYPE , 83 7; TYPE TWO(2) SPACES 
BR 7% >; LOOP 
83: astiz # # >; TWO(2) SPACES 


. EVEN 
.SBTTL TYPE ROUTINE 


5 5 MAKKKAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAR AAA AAA AAA AAA AAA AAAS 
;HROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;XTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


; XNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; XNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; ¥NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 

;x 


SEQ 0065 
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DVPCAR. P11 25-OCT-77 10: 02 TYPE ROUTINE SEQ 0066 
2511 > XCALL 
2512 ;*1) US NG A TRAP INSTRUCTION 
2513 ;* YPE , MESAOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
2514 ; XOR 
2515 ;x TYPE 
2516 33 MESADR 
2517 7x 
2518 
2519 015002 105737 001157 $TYPE: TSTB STPFLG 3; 1S THERE A TERMINAL? 
2520 015006 100002 BPL 1$ ;;BR IF YES 
2521 015010 000000 HALT ;;HALT HERE IF NO TERMINAL 
2522 015012 000407 BR 34 7+ LEAVE 
2523 015014 010046 15: MOV RO, -(SP) 7; SAVE RO 
2524 015016 017600 9000002 MOV a2(SP),RO ;;GET ADDRESS OF ASCIZ STRING 
2525 015022 112046 23: MOVB (RO)+,-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
2526 015024 001005 BNE 4§ ;;BR IF IT ISN'T THE TERMINATOR 
2527 015026 005726 TST (SP )+ ;; 1F TERMINATOR POP IT OFF THE STACK 
2528 015030 012600 605: MoV (SP)+,R0 ;;RESTORE RO 
2529 015032 062716 000002 34: ADD #2, (SP) si got RETURN PC 
2530 015036 000002 RTI 7; RETURN 
2531 015040 122716 000011 4S: CMPB #HT. (SP) +; BRANCH IF <HT> 
2532 015044 001430 BEQ 8S 
2533 015046 122716 000200 CMPB #CRLF, (SP) ;; BRANCH IF NOT <CRLF> 
2534 015052 001006 BNE 54% 
2535 015054 005726 TST (SP )+ ;;POP <CR><LF> EQUIV 
2536 015056 104401 TYPE +; TYPE A CR AND LF 
2537 015060 001175 SCRLF 
2538 015062 105037 015216 CLRB SCHARCNT >; CLEAR CHARACTER COUNT 
2539 015066 000755 BR 23 ;;GET NEXT CHARACTER 
2540 015070 004737 015152 5S: JSR PC, STYPEC ;;GO TYPE THIS CHARACTER 
2541 015074 123726 001156 6%: CMPB SF ILLC, (SP)+ +718 tT TIME FOR FILLER CHARS. ? 
2542 015100 001350 BNE 23 7; 1F NO GO GET NEXT CHAR 
2543 015102 013746 001154 MOV SNULL, - (SP) ;;GET # OF FILLER CHARS. NEEDED 
2544 ++AND THE NULL CHAR. 
2545 015106 105366 000001 7S: DECB 1(SP) ;;DOES A NULL NEED TO BE TYPED? 
2546 015112 002770 BLT 6% ;;BR IF NO--GO eas THE NULL OFF OF STACK 
2547 015114 004737 015152 JSR PC, STYPEC ++GO TYPE A NULL 
2548 015120 105337 015216 DECB SCHARCNT ;;D00 NOT COUNT AS A COUNT 
ae 015124 000770 BR 7% +; LOOP 
et ;HORIZONTAL TAB PROCESSOR 
255 
2553 015126 112716 O00040 85: MOVB #' , (SP) ;;REPLACE TAB WITH SPACE 
2554 015132 004737 015152 95: JSR PC, STYPEC 3; TYPE A SPACE 
2555 015136 132737 000007 015216 BITB #7, SCHARCNT ;; BRANCH IF NOT AT 
2556 015144 001372 BNE 95 >; TAB STOP 
2557 015146 005726 TST (3P)+ ;;POP SPACE OFF STACK 
2558 015150 000724 BR 23 ;;GET NEXT CHARACTER 
2559 015152 105777 163772 STYPEC: TSTB aSTPS ;;WAIT UNTIL PRINTER 1S READY 
2560 015156 100375 BPL STYPEC 
2561 015160 116677 000002 163764 MOVB 2(SP), dSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG 
2562 015166 122766 000015 9000002 CMPB #CR, 2(SP) 3; 1S CHARACTER A CARRIAGE RETURN? 
2563 015174 001003 BNE 1$ ;; BRANCH IF NO 
2564 015176 105037 015216 CLRB SCHARCNT 4o taaaies CHARACTER COUNT 
2565 015202 000406 BR STYPEX XIT 


+ EX 
2566 015204 122766 000012 000002 1%: CMPB #LF, 2(SP) + 1S CHARACTER A LINE FEED? 


. MAIN. 


MACY11 
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015212 
015214 
015216 
015220 


015222 
015222 
015224 
015226 
015230 
015232 
015234 
015240 
015244 
015246 
015250 
015256 
015260 
015264 
015270 
015272 
015276 
015300 
015302 
015304 
015306 
015310 
015312 
015314 
015316 
015320 
015322 
015324 
015332 
015336 
015342 
015344 
015346 
015352 
015354 
015356 
015360 
015362 
015364 


30(1046) 
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001402 
105227 
000000 
000207 


010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 


020200 
000020 
000055 


015436 
000040 


015426 


000001 
000060 
000040 


000010 


25-OCT-77 
10: 02 


000001 


177777 


10:10 PAGE 65 


TYPE ROUTINE 
BEQ 


INCB 
SCHARCNT: . WORD 


STYPEX: RTS 


STYPEX 
(PC)+ 
0 

PC 


;+BRANCH IF YES 
+; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
jp AXXAAAAAAAAARAAAAA AAA AA AAA AAA AA AAA AAA AAA AA AAA AAA AA AA AAA AAA AES 


+XTHIS ROUTINE IS 


, 


eS MOV 


;x TYPOS 


STYPDS: 


15: CLR 


2: CLR 
3$: SUB 


4S: ADD 


8$: TSTB 


USED TO 


NUM, - (SP) 


RO, -(SP) 


#20200. - (SP) 
+ Mace 
1 


#'-, 10SP) 
0 


R 
#SDBLK,R3 
#' .(R3)+ 


R2 
SOTBL(RO).R1 
R1,R5 


CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;XSIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> XNUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;XBEFORE THE FIRST DIGIT OF THE 
> XREPLACED WITH SPACES. 
; iL: 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
++GO TO THE ROUTINE 


;+PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;PUSH RS ON STACK 

;;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 

;;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS 
;;MAKE THE ASCI! NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
;;CLEAR THE BCD NUMBER 

;;GET THE CONSTANT 

;;FORM THIS BCD DIGIT 

+;BR IF DONE 

;; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 

7; CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF O 
;;STILL DOING LEADING O'S? 
;;BR IF YES 

+;MSDO? 

;;7BR IF NO 

+2 YES--SET THE SIGN 

;;MAKE THE BCD DIGIT ASCII 


;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
++PUT THIS CHARACTER IN THE OUTPUT BUFFER 


3; JUST !NCREMENTING 

;;CHECK THE TABLE INDEX 

;;GO DO THE NEXT DIGIT 

;;GO TO EXIT 

;;GET THE LSO 

>,GO CHANGE TO ASCII 

;;WAS THE LSD THE FIRST NON-ZERO? 
>; BR IF NO 


SEQ 0067 
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015366 
015374 
015376 
015400 
015402 
015404 
015406 
015410 
015414 
015422 
015424 
015426 
015430 
015432 
015434 
015436 


015446 
015452 
015460 
015464 
015470 
015472 
015500 
015506 
015514 
015516 
015520 
015522 
015526 
015530 
015534 
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116663 
105013 
012605 
012603 
012602 
012601 
012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 


017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 


177777 


015436 
000002 


000000 
000001 
015673 
000002 


000001 


000006 
000005 


015673 


000006 
015672 


177776 


000004 


015671 


015671 
015673 
015670 


D 6 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
MOVB “~1(SP),-2(R3) ++ YES--SET THE A Rg TYP ING 


10:10 PAGE 6 


CLRB (R3) ++SET THE TERMINATO 

MOV (SP)+,R5 ++POP STACK INTO RS 

MOV (SP)+,R3 ++POP STACK INTO R3 

MOV (SP)+,R2 ++POP STACK INTO RZ 

MOV (SP)+,R1 ++POP STACK INTO R1 

MOV (SP)+,R0 ;+POP STACK INTO RO 

TYPE » SDBLK ++NOW TYPE THE NUMBER 

MOV 2(SP),4 (SP) +;ADJUST THE STACK 

MOV (SP)+, (SP) 

RTI ++RETURN TO USER 
SOTBL: 10000. 

1000. 

100. 

10. , 
SDBLK: BLKW . 


-SBTTL BINARY 10 OCTAL (ASCII) AND TYPE 


55 RAEXKAAAAA AA AAA AAA AA AAA AAA AAA AA AAA AAA AAA AA AA AAA AA AAA AA AAA AAA AES 

;XTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;KOCTAL (ASCII) NUMBER AND TYPE IT. 

4 ~ +b it conten HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
> XCALL: 


;2 MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

32 TYPOS ;;CALL FOR TYPEOUT 
ik . BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3x BYTE M +7M=z1 OR O 

7 721=TYPE LEADING ZEROS 

3z ;;O0=SUPPRESS LEADING ZEROS 

32 


; XSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;X¥STYPOS OR STYPOC 


> XCALL: 

a MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

ob TYPON 7;CALL FOR TYPEOUT 

; ESTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

; XCALL: 

ix MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

;x TYPOC >;CALL FOR TYPEOUT 

STYPOS: MOV a(SP),- (SP) ;;PICKUP THE MODE 
MOVB 1(SP),S0F ILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
BR STYPON 

STYPOC: MOVB #1, S0F ILL ;;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 ;;SET FOR S!IX(6) DIGITS 

STYPON: MOVB #5, SOCNT ;;SET THE ITERATION COUNT 
MoV R3,- (SP) ;;SAVE RS 
MoV R4, -(SP) 7: SAVE RY 
MOV R5, -(SP) >; SAVE RS 
oy ene ;;GET THE NUMBER OF DIGITS TO TYPE 
NE 4 
ADD #6, R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4, SOMODE ;;SAVE 1T FOR USE 


SEQ 0068 
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015540 
015544 
015550 
015552 
015554 
015556 
015560 
015562 
015564 
015566 
015570 
015574 
015576 
015602 
015604 
015606 
015610 
015612 
015616 
015622 
015626 
015632 
015636 
015640 
015642 
015644 
015646 
015650 
015652 
015654 
015662 
015664 
015666 
015667 
015670 
015671 
015672 


015674 
015674 


MACY11 30(1046) 
25-OCT-77 


113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 


000000 


010046 


25-OCT-77 10:10 PAGE 67 
10: 02 


015671 
000012 


015672 
177770 


000060 
000040 
015666 
015666 
015670 


000002 900004 


2$: ROL 


3$: ROL 


4S: INC 
5S: BIS 


7%: DECB 


6S: MOV 


SOMODE: . WORD 


E 6 
BINARY TO OCTAL (ASCII) AND TYPE 


SOF ILL, RY 
oo 


R3 
SOMODE 
ee 


(SP)+,R3 
2(SP),4 (SP) 
(SP)+, (SP) 


oooo°o 


;;GET THE ZERO FILL SWITCH 
;+PICKUP THE INPUT NUMBER 
;;CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO "C" 

++GO DO MSB 

;;FORM THIS DIGIT 


;;GET LSB OF THIS DIGIT 

7; TYPE THIS DIGIT? 

>>BR IF NO 

;,GET RIO OF JUNK 

+; TEST FOR O 

;; SUPPRESS THIS 0? 

>-BR IF YES 

;;DON'T SUPPRESS ANYMORE O'S 
;;MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 
7; SAVE FOR TYPING 

;;GO TYPE THIS DIGIT 

>; COUNT BY 1 

;;BR IF MORE TO DO 

;;BR IF DONE 

3; INSURE LAST DIGIT ISN'T A BLANK 
;;G0 DO THE LAST DIGIT 
;;RESTORE RS 

>;RESTORE RY 

;,RESTORE R3 

;;SET THE STACK FOR RETURNING 


;; RETURN 

+; STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 
;;,0CTAL DIGIT COUNTER 

>; ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


.SBTTL SAVE AND RESTORE RO-R5S ROUTINES 
Poe $22 59600000000008009099999205092 222090229002 20 0 09309 022999003 8 | 


;KSAVE RO-RS 
ares 


gieposstetei 


re +2---(+18) 
7K +4---R5 
7k 46---RY 
7K +8---R3 
;&+10---R2 
;%412---R1 
3; &+14---RO 


SSAVREG: 
MOV 


RO, -(SP) 


SAVREG 
+ tao RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


;;PUSH RO ON STACK 


SEQ 0069 


. MAIN. 


DVPCRA. 


MACY11 


Pil 


015676 
015700 
015702 
015704 
015706 
015710 
015714 
015720 
015724 
015730 


015732 
015732 
015736 
015742 
015746 
015752 
015754 
915756 
015760 
015762 
015764 
015766 


015770 
015772 
015776 
016000 
016002 
016004 
016010 


016012 
016014 
016022 


30(1046) 
25-OCT-77 


010146 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 


012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 


010046 
016600 
005740 
111000 
006300 
016000 
000200 


011646 
016666 
000002 


25-OCT-77 
10: 02 


000022 
000022 
000022 
000022 


000022 
000022 
000022 
000022 


000002 


016024 


000004 000002 


F 6 


10:10 PAGE 68 
SAVE AND RESTORE RO-R5S ROUTINES SEQ 0070 
MoV R1,-(SP) ;+PUSH R1 ON STACK 
MOV R2,-(SP) ;+PUSH R2 ON STACK 
MOV R3,- (SP) ;+PUSH R3 ON STACK 
MOV R4,-(SP) +;PUSH RY ON STACK 
MOV RS, -(SP) +; PUSH RS ON STACK 
MOV 22(SP),-(SP) +; SAVE PS OF MAIN FLOW 
MOV 22(SP),-(SP) ++ SAVE PC OF MAIN FLOW 
MOV 22(SP}, -(SP) +;SAVE PS OF CALL 
et 22(SP),-(SP) ++SAVE PC OF CALL 
| 
> RESTORE RO-RS 
; XCALL: 
;x RESREG 
SRESREG: 
MOV (SP )+, 22(SP) ;;RESTORE PC OF CALL 
MOV (SP)+, 22(SP) ;RESTORE PS OF CALL 
MOV (SP)+, 22(SP) ;;RESTORE PC OF NAIN FLOW 
MOV (SP )+, 22(SP) ;;RESTORE PS OF MAIN FLOW 
MOV (SP)+,R5 +;POP STACK INTO R5 
MOV (SP)+,R4 ;;POP STACK INTO RY 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (SP)+,R2 ;;POP STACK INTO RZ 
MOV (SP)+,R1 ;;POP STACK INTO 81 
MOV (SP)+,R0 ;;P6F STACK INTO RO 
RTI 


.SBTTL TRAP DECODER 


3p MKKKKAAAA AAA AAA A AAA AAA AAA AAA AAA AAA AAS 
;XTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 

; AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE. 


STRAP: MOV RO, - (SP) +;SAVE RO 
MOV 2(SP).RO +;GET TRAP ADDRESS 
TST -(RO) +;BACKUP BY 2 
MOVB (RO),RO +;GET RIGHT BYTE OF TRAP 
ASL RO +;POSITION FOR INDEXING 
MOV STRPAD(RO),.RO +; INDEX TO TABLE 
RTS RO +:GO TO ROUTINE 


+; THIS 1S USE TO HANDLE THE "GETPRI™ MACRO 


STRAPZ: MOV (SP), -(SP) >;MOVE THE PC DOWN 
MOV 4(SP),2(SP) ;>;MOVE THE PSW DOWN 
RTI +;RESTCRE THE PSW 
.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;XBY THE "TRAP" INSTRUCTION. 
: ROUTINE 


seer 


MAIN. MACY11 3001046) 25-OCT-77 10:10 PAGE 69 


2844 016220 005015 047520 042527 SPOWER. ASCIZ <15><12>"POWER" 
2845 016226 000122 
2846 . EVEN 





DVPCRR. P11 25-OCT-77 10: 02 TRAP TABLE SEQ 0071 
2791 016024 016012 STRPAD: .WORD STRAPZ 
2792 016026 015002 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
2793 016030 015472 STYPOC ;;CALL=TYPOC TRAP4+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
2794 016032 015446 STYPOS ;:CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
2795 016034 015506 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
he 016036 015222 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE CECIMAL NUMBER (WITH SIGN) 
2798 
2799 016040 014062 SROCHR ;;CALL=ROCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
2800 016042 014202 SROLIN +; CALL=ROLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
2801 016044 014354 SRDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
2802 016046 015674 SSAVREG ;;CALL=SAVREG TRAP+11(104411) SAVE RO-R5S ROUTINE 
2803 016050 01&732 GRESREG ;;CALL=RESREG TRAP+12(104412) RESTORE RO-RS ROUTINE 
cone .SBTTL POWER DOWN AND UP ROUTINES 
2806 35 MAKKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATS 
_ 2807 ;POWER DOWN ROUTINE 
2808 016052 012737 016212 000024 SPWRDN: MOV RSILLUP, D#PWRVEC >; SET FOR FAST UP 
2809 016060 012737 000340 900026 MOV R340, DFPWRVEC+2 7; PRIO: 7 
2810 016066 010046 MOV RO, - (SP) ;+PUSH RO ON STACK 
2811 016070 010146 MOV R1i,-(SP) ++PUSH R1 ON STACK 
2812 016072 010246 MOV R2,-(SP) +;PUSH R2 ON STACK 
2813 016074 010346 MoV R3,-(SP) ;+PUSH R3 ON STACK 
2814 016076 010446 MOV R4, -(SP) ;+PUSH R4 ON STACK 
2815 016100 010546 MOV RS, - (SP) ;;PUSH R5 ON STACK 
2816 016102 017746 162032 MOV OSWR, - (SP) ;,>PUSH @SWR ON STACK 
2817 016106 010637 016216 MOV SP, SSAVR6 +;SAVE SP 
2818 016112 012737 016124 000024 MoV #SPWRUP, DRPWRVEC >; SET UP VECTOR 
2819 016120 000000 HALT 
74 016122 000776 BR .*5 +;HANG UP 
1 
2822 [OOOO OI III III 
2823 ;POWER UP ROUTINE 
2824 016124 012737 016212 900024 SPWRUP: MOV #SILLUP, dRPWRVEC >; SET FOR FAST DOWN 
2825 016132 013706 016216 MOV SSAVRE, SP +;GET SP 
2826 016136 005037 016216 CLR SSAVRE +;WAIT LOOF FOR THE TTY 
2827 016142 005237 016216 1S: INC SSAVRE ;;WAIT FOR THE INC 
2828 016146 001375 BNE 1$ >;0F WORD 
2829 016150 012677 162764 MoV (SP) +, dSWR +;POP STACK INTO @SHR 
2830 016154 012605 MoV (SP)+,R5 :;POP STACK INTO R5 
2831 016156 012604 MOV (SP)+,R4 ;;POP STACK INTO RY 
2832 016160 012603 MOV (SP)+,R3 >;POP STACK INTO R3 
2833 016162 012692 MoV (SP)+,R2 7;POP STACK INTO R2 
2834 016164 012601 MoV (SP)+,R1 ;;POP STACK INTO R1 
2835 016166 012600 MOV (SP)+,RO >;POP STACK INTO RO 
2836 016170 012737 016052 900024 MoV RSPWRON, QFPWRVEC ;;SET UP THE POWER DOWN VECTOR 
2837 016176 012737 000340 000026 MoV #340, D#PWRVEC+2 7; PRIO: 7 
2838 016204 104401 TYPE REPORT THE POWER FAILURE 
2839 016206 016220 SPWRMG: .WORD SPOWER ;;POWER FAIL MESSAGE POINTER 
2840 016210 000002 RTI 
2841 016212 000000 SILLUP: HALT >; THE POWER UP SEQUENCE WAS STARTED 
2842 016214 000776 BR . = >; BEFORE THE POWER DOWN WAS COMPLETE 
2843 016216 000000 SSAVRE: 0 >;>PUT THE SP HERE 


MAIN. 


: MACY11 30¢104 
DVPCRR. P11 


016230 
016236 
016244 
016252 
016257 
016264 
016272 
016300 
016306 
016314 
016322 
016326 
016334 
016340 
016346 
016354 
016362 
016370 
016371 
016376 
016404 
016412 
016420 
016422 
016436 
016436 
016444 
016450 
016456 
016464 
016470 
016476 
016504 
016512 
016520 
016523 
016530 
016536 
016544 
016552 
016560 
016566 
016572 
016572 
016600 
016606 
016607 
016614 
016622 
016630 
016636 
016644 
016652 
016657 
016664 
016672 


6) 
25-0CT-77 


041103 


042524 
006524 


040504 
051122 


041101 
026104 


25-OCT-77 10 
10: 02 


052111 
041440 
047141 
046503 
041517 
052123 
020122 
042440 
053440 
042524 
020107 
044502 
000012 
052011 
042107 
042102 
040520 


041517 
047040 
051505 
047111 


051525 
O4444O 
O4e111 
000u12 
O4444D 


051122 
000012 


040524 
051117 


004503 
042514 
042522 
052123 
040504 
040504 
051523 
051505 
051117 
044440 


047040 
042514 
020107 

000 
020115 
0c5015 
040504 
051122 
042510 
052123 


020124 


052123 
040504 
040504 
051523 


020115 
052117 
047520 
006507 


041040 
020123 
047111 


052116 
052120 


052123 
052504 
040440 
040520 


043516 
042524 
020116 
043101 
047111 
050125 


042440 
005015 


047515 


042524 
041517 


: 10 


EM1: 


EM2: 
ENM2Y: 


EM2x: 
DH1: 


EMS: 


EM4: 


EMS: 


DHS: 


EMe: 


EM17. 
EN?: 


DH?: 


Em1i0: 


PAGE 70 
POWER DOWN AND UP ROUTINES 


-ASCIZ 


ASCII 
. ASCII 


- ASCIZ 
-ASCIZ 


ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


_ASCIZ 


. ASCIZ 


-ASCIZ 


H 6 
7CBIT NOT CLEARING |OCH/ 


ZIOCM TEST/<15><12> 
7CSR DATA ERROR WHEN TESTING 7 


7 BIT 7<15><12> 
7PC TST# GODAT BDDAT PASS.’ 


710CM IS NOT RESPONDING/<15><12> 


/OBUS BIT IS FAILING/<15><12> 


“NO INTERRUPT 7<15>¢12> 


/PC TST# MODULE ADDR PASS/ 


7WRONG PATTERN IN JAR AFTER !NTEPPUPT/<15><12> 


/DATA ERROR/<15><12> 


7PC MODULE ADDRESS TST# GODAT BODAT PASS/ 


7TEST ABORTED, 1OCM ERROR/<15><12> 


SEQ 0072 | 





MAIN. 


MACY11 


DVPCPRA. P11 


016700 


017366 


30(1046) 
25-OCT-77 


020115 
006522 
040504 
052117 
051101 
051105 


042523 


25-OCT-77 
10: 02 


051105 
000012 
040524 
041440 
040440 
030440 
006503 
042524 
020124 
040514 
006440 
020106 
047516 
040505 
041440 
043505 
051522 


O4444D 
052522 


020124 


047522 


047040 
042514 
052106 
020060 
000012 
051122 
047524 
042524 
000012 
044502 
020124 
044522 
051517 
051511 
006440 


052116 
052120 


051117 
020120 


040520 


042522 
051505 
044124 
020124 
051511 


10:10 PAGE 71 


1 6 


POWER DOWN AND UP ROUTINES 


EM11: 


EM12: 


EM13: 


EM14: 


EM15: 


EM16: 


EN20: 


EN21: 


DH21: 


EN22: 


. ASCIZ 


-ASCIZ 


- ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


 ASCIZ 


- ASCIZ 


- ASCIZ 


. ASCIZ 


/DATA NOT CLEAR AFTER 10 SEC/<15><12> 


7Z\INTERRUPT TOO LATE 7¢15><12> 


/RIF BIT NOT CLEARING COS REGISTERS 7<15><12> 


7NO INTERRUPT IN MAINTENANCE MODE/<15><127 


/RIF BIT ISN"T CLEARING INTERRUPT/<15><12> 


/CLERRING DBIT iISN"T CLEARING CSR/<15><12> 


/COS REGISTER DATA ERROR/<15><12> 


/LCOP ERROR ON 6010-5010 OR 5011.°<15><12> 


/PC GOOAT BDOAT PASS’ 


/ADDRESS TEST WITH MBIT SET ISN'T WORKING /<15><12> 


SEQ 0073 


+ 


. MAIN. 


DVPCPA. 


MACY11 30(1046) 


Pil 


017374 
017402 
017410 
017413 
017420 
017426 
017434 
017442 
017450 
017456 
017464 
017470 
017474 
017476 
017501 
017504 
017507 
017512 
017515 
017522 
017530 
017536 
017541 
017546 
017554 
017562 
017570 
017576 
017604 
017607 
017614 
017622 
017630 
017631 
017636 
017644 
017652 
017660 
017666 
017674 
017676 
017704 
017712 
017720 
017721 
017726 
017734 
017742 
017750 
017755 
017762 
017770 
017774 
020002 
020010 
020013 


25-OCT-77 


25-OCT-77 10: 02 


023516 


020124 
aad 


000012 


050117 
035123 


020040 
046505 
006524 
042040 
046101 
046125 


040440 
020107 
042514 


020040 
043117 
020123 
043122 
005015 
020040 
044503 
000012 
O4444O 
042524 


000 
020040 


047527 
020107 


046102 
041440 
O4444D 
052522 
000012 
052123 
000122 


051523 
046517 
042105 


046125 
042504 
052123 
047516 
050123 
043516 


051505 
044524 
005015 


054523 
052040 
000012 
043511 
046440 
006505 


040516 
047515 
005015 


040515 


054105 
042532 


041517 
052123 


006477 


10:10 PAGE 72 


J 6 


POWER DOWN AND UP ROUTINES 


EN23: 


EN24: 


M13: 


M14: 


M15: 


M16: 


M17: 


M18: 


M19: 


M20: 


. ASCIZ 


. ASCIZ 


.ASCIZ 
. ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


_ASCIZ 


. ASCIZ 


7UNABLE TO CLEAR INTERRUPT 7<15><12> 


7PC 


7N/7¢ 
7Y74 


TST# |AR/ 


15><12> 
15><12> 


7E 7? 
7 PASSES COMPLETED/<15><12> 


/MODULE UNDER TEST IS NOT RESPONDING/<15><12> 


£15) 


7S 


/0 


“A 


Ai) 


“\ 


<12>/TEST OPTIONS: 7<15><12> 


SYSTEM TEST7<15><12> 


DIGITAL MODULE/7<15><12> 


ANALOG MODULE/<15><12> 


MAP OF DBLS INTERFACES/<15><12> 


EXERC IZER/<15><12> 


10CM TEST/<15><12> 


27¢4185><12> 


SEQ 0074 


. MAIN. 


MACY11 30(1046) 


DVPCAR. P11 


020020 
020022 
020030 
020036 
020041 
020046 
020054 
020062 
020070 
020071 
020076 
020104 
020112 
020120 
020126 
020134 
020142 
020150 
020156 
020164 
020165 
020172 
020200 
020206 
020214 
020216 
020224 
020230 
020236 
020244 
020250 
020256 
020264 
020267 
020274 
020302 
020310 
020316 
020321 


020456 


25-OCT-77 


25-OCT-77 10: 02 


000012 


042105 


051440 


047522 


030069 
020040 
047440 
052123 
030060 
044440 
052111 
051117 
050117 
052116 


030060 
020040 
047440 
047522 


052523 


031440 


052105 
043505 


030060 
040510 
020116 
006522 


030060 
047514 
020116 
005015 
020060 
O44116 
042440 
023040 
050040 
005015 


036060 
047514 
020116 
006522 


042522 


042511 
051505 


047517 
052123 


047514 
042524 
047117 
052116 


042502 
O44440 
044524 
041517 
000040 
041440 
O44440 
020124 
051122 
043516 


051505 


030065 
047117 
052101 
020062 


10:16 PAGE 73 


K 6 


POWER DOWN AND UP ROUTINES 


M21: 


M22: 


M23: 
M24: 


M25: 


M26: 


N2?: 


ENz25: 


MASSO: 
MASS2: 


MASS3: 


~ASCIZ 


ASCII 


. ASCII 


.ASCIZ 


-ASCIZ 


.ASCIZ 
ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 
. ASCIZ 


. ASCIZ 


7T SET SWREG/<15><12> 


7100000 HALT ON ERROR/<15><12> 


740000 LOOP ON TEST/<15><12> 


720000 INHIBIT ERROR & EOP PPINT/<15><12> 


710000 LOOP ON ERROP/<15><12> 


€15><12>/SWREG =/ 
7F FIELD TEST/<15><12> 


7W LOOP TEST/<15><12> 


7L LOAD ITERATION COUNT/<15><12> 


7NUMBER OF ITERATIONS(OCT) = / 


7LINE CLOCK IS NOT INTERRUPTING/<15><12> 


<15><12> 
ZADORESS 7 


7 5010 NONISOLATED 32 BIT DC INPUT/<15><12> 


4 


SEQ 0075 





. MAIN. 


MACY 11 


DVPCAA. P11 


020464 
020472 
020500 
020503 
020510 
020516 
020524 
020532 
020540 
020546 
020552 
020560 
020566 
020574 
020602 
020610 
020616 
020624 
020632 
020640 
020646 
020650 
020656 
020664 
020672 
020700 
020706 
020714 
020720 
020726 
020734 
020742 
020750 
020756 
020761 
020766 
020774 
021002 
021010 
021016 
021024 


021144 


30(1046) 
25-OCT-77 


044502 


054524 


25-OCT-77 10: 
10: 02 


020124 
050116 

000 
020040 
020061 
047523 
020104 
052111 
047111 
000012 
046440 
044440 
042524 
041040 
020103 
006524 
046440 
034040 
040440 
052520 


046440 
047040 
046117 
031440 
020124 


052125 


020040 
020063 
020124 
052125 
000012 
020040 
047516 
047105 
041440 
000040 
044127 
042524 
052120 
020077 
042520 


041504 
052125 


032515 


052520 


030065 
047523 
020104 
052111 
047111 
000012 
030065 
041040 
020103 
006524 


030066 
047117 
052101 
020062 
041504 
052520 


030066 
020066 
047117 
020124 
052125 


033115 
051511 
042105 
052111 
052517 
005015 


033115 
020070 
041501 
052520 


052440 
047127 
051105 
042117 


041511 
052123 
047511 
000040 
040440 


10 


PAGE 7 
POWER DOW 


MASS4: 


NASSS: 


MASSE: 


MASS7?: 


MASSS8: 


MASSY: 


MASS10: 


MASS11: 


MASS12: 


MASS13: 


L 6 


4 
N AND UP ROUTINES SEQ 0076 


. ASCIZ 


. ASCIZ 


. ASCIZ 


ASCIZ 


- ASCIZ 


. ASCIZ 


. ASCIZ 


- ASCIZ 


. ASCIZ 


-ASCIZ 


7 S011 NONISOLATED 16 BIT DC INPUT/<15><12> 


7 65012 ISOLATED 16 BIT DC INPUT/<15><12> 


7 5013 8 BIT AC INPUT/<15><12> 


7 M6010 NONISOLATED 32 BIT DC OUTPUT/<15><12> 


7 M6011 16 BIT ONESHOT OUTPUT/<15><12> 


/ M6012 ISOLATED 8 BIT DC OUTPUT/<15><12> 


/ M6013 8 BIT AC OUTPUT/<15><12> 


€15><12>7 UNKNOWN GENERIC CODE / 


€15><12>/7WHICH TEST OPTION ? / 


/TYPE ADDRESS OF MUT / 


. MAIN. 


MACY11 301046) 


DVPCAR. P11 


021152 
021160 
021166 
021174 
021202 
021210 
021216 
021221 
021226 
021234 
021242 
021246 
021254 
021262 
021270 
021271 
021276 
021304 
021312 
021315 
021322 
021323 
021330 
021336 
021344 
021352 
021360 
021362 
021370 
021376 
021404 
021412 
021420 
021426 
021430 
021436 
021444 
021452 
021460 
021463 
021470 
021476 
021504 
021512 
021515 
021522 
021530 
021536 
021544 
021552 
021556 
021564 
021572 
021600 
021601 
021606 


25-OCT-77 


042104 


25-OCT-77 10 
10: 02 


042522 


052123 


042116 
040440 


050131 
020105 
042040 
040520 
020116 


042520 
051124 
052040 
052524 
020117 
047524 


042520 


052123 


047522 
042117 


051523 
052515 
000040 
051122 
047524 
042524 


047440 
052504 
051505 


043117 
020115 
005015 


047440 
052125 
052123 


005015 


020105 
054502 
052101 
052124 
020040 


041440 
046117 
020117 
047122 
047515 
006522 


ovo44O 
051523 
052517 
O4644O 


020105 
051505 
O44440 
046440 


042516 
052125 
047524 
052125 
046125 


043117 
020120 
005015 


043516 
046125 


: 10 


MASS14: 


MASS15: 


MASS 16: 


MASS17: . 


MASS18: . 
MASS19: . 


MASS20: . 


MASS21: 


MASS22: 


MASS23: 


MASS25: 


MASS2é: 


. ASCIZ 


 ASCIZ 


ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


M 6 


PAGE 75 
POWER DOWN AND UP ROUTINES 


ZINTERRUPT TOO LATE/<15><12> 


7END OF MODULE TEST/<15><12> 


7ZEND OF 1O0CM TEST/<15><12> 


7ZEND OF AUTO TEST/<15><12> 


Z = 7416>4<12> 
/TYPE ONE BYTE DATA PATTERN 4 


7TYPE CONTROL-C TO RETURN TO MONITOR/<15><12> 


/7TYPE ADDRESS OF OUTPUT MUT/ 


7TYPE ADORESS OF INPUT MUT/ 


7CONNECT OUTPUT TO INPUT MODULE7<15><12> 


7END OF LOOP TEST/<15><12> 


ZWRONG MODULE-OUTPUT MUST BE M60107<15><12> 


SEQ 0077 


. MAIN. 


MACY11 


DVPCAR. P11 


021614 
021622 
021630 
021636 
021644 
021645 
021650 
021656 
021664 
021672 
021700 
021706 
021714 
021722 
021730 


021734 
021742 
021750 
021754 
021762 
021770 
021774 
022002 
022004 
022012 
022020 
022024 
022032 
022040 
022046 
022054 
022062 


30(1046) 
25-OCT-77 


026505 


001116 
001126 
001116 
002006 
001116 
002056 
000001 


25-OCT-77 10 
10: 02 


052517 
046440 
042502 
030061 


000011 
047117 


002002 
001124 
000000 
002002 
001124 
000000 
002022 


002002 
001124 
000u00 
002022 
002056 
002022 


.002056 


001124 
000000 


050124 
051525 
046440 
005015 


020107 
042514 
052125 
020.24 
052111 
032515 
051117 
030461 


002050 
001126 


002014 
001126 


002052 


002012 
001126 


001124 
000000 
002002 
000000 
001126 


: 10 PAGE 76 
POWER DOWN AND UP ROUTINES 


MASS27: 
MASS28: 


. EVEN 
DT1?: 


OT20: 


OT23: 
OT?: 


DT1: 
OTS: 
0121: 
_ END 


. ASCIZ 
. ASCIZ 


. WORD 


. WORD 


. WORD 
. WORD 


. WORD 
. WORD 
. WORD 


N 6 


SEQ 0078 


#: / 
/WRONG MODULE-INPUT MUST BE EITHER M5010 OR MS50117<15><12> 


SERRPC, SMUT. 


SERRPC, SMUT, 


SERRPC, TNUMB, 
SERRPC, SMUT. 


SERRPC,. TNUNMB. 
SERRPC, TNUMB, 


SERRPC. SGODAT, 


TEMP1, TNUMB, S$GDDAT, SBDDAT. PASS. 


COSADR, TNUMB, S$GDDAT. SBODAT, PASS. 


TEMP 3, 
TBADDR, TNUMB, SGDDAT, SBDDAT. PASS. 


SGDDAT. SBDDAT. PASS. 
SMUT. ‘TADOR., PASS. 
$BDDAT. PASS. 


8 7 
MAIN. MACY11 30(104 


6) 25-OCT-77 10:10 PAGE 78 
DVPCAR. P11 25-OCT-77 10: 02 


CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0079 

ANALOG 011150 791 1803% 

ANSHW 001764 5578 

ATABL 001200 5298 910 954 

AUTO 003612 758 785 8984 

BASE 002042 5828 908 1129 1338 1508 1744 1856 2035 

BITSET 012230 1234 1237 1246 1249 1259 1262 1293 1296 1306 1309 1319 1322 19998 

BiTO = 000001 4558 478 

BiTOO = 000001 445% 455 

BiTO1 = 000002 4448 454 

BiTOZ2 = 000004 443R 453 

BITO3 = 000010 4424 452 

BiTO4Y = 000020 4418 451 

BITOS = 000040 4Y4OR 450 

BiTO& = 000100 4398 449 

BiT07 = 000200 438% 448 

BITO8 = 000400 4378 447 

BITO9 = 001000 436% 446 2257 2443 

BIT1 = 000002 4548 477 

B1T10 = 002000 435% 

BiTi1 = 004000 4348 

B1T12 = 010000 433% 

BIT13 = 020000 432% 857 969 1039 1190 2435 

BiTi4 = 040000 4318 £62 974 1044 1195 

BiTiS = 100000 4 30% 

BiIT2 = OO0004 4538 476 

BIT3 = 000010 4628 475 

BiIT4Y = 000020 Yolk 474 

BITS = 000040 4508 473 

B'!T6é = 000100 44OF 472 750 761 777 821 900 1016 1071 1128 1185 

BIT? = 000200 4Y4UB# 471 2049 

BiIT8 = 000400 4478 203 

BIT9 = 001000 Y4U6R 

BPTVEC= 000014 4628 

BTABL 001440 530% 911 943 949 962 

BYTNUM 002004 5678 1441e 1446k 1469K 1475k% 1606 1608K 1613k 1615% 1619% 1621% 1626% 1628% 
1655% 1657k 1677k 1679% 1710k% 1715k 1819k% 1824k 1897% 1901% 1905*% 1909% 1916% 
1921x 1931 1939xk 1942k 1946 1954x 1957k 1963 1967xk 1970k 2074 2079%  2083% 
2085*% 2101% 2109 2127 2149% 2155% 2159% 2165% 2169% 2175% 2179k% 2185% 2191% 
2197k 2201k% 2207% 2211% 2217% 2221% 2227% 

cBIT = 000002 4778 840 845 1052 1057 1083 1088 1208 1213 1275 1280 1352 1357 
1403 1408 2052 2057 2136 2141 

CHKBYT 012556 2072% 2156 2166 2176 2186 2198 2208 2218 2228 

CLK 002044 5838 1647k 1662 1670 1675x 1685 2026% 

CLKADR 002024 575% 750% 

CLKVC 002062 5908  1648x 1690% 

CLKVCA 002064 5918 1649% 

CLRINT 012360 gel 1298 1449 1473 1478 1496 1522 1717 1733 1784 1827 1844 1875 
20308 

CNTRC 012446 8523 965 1035 1096 2048% 2067 2128 

COSADR 002014 5718 1706k 1707% 1754 1759 1761 1764x 1772 177? 1779 1782* 3202 

COUNT 012352 1648 20268 

CR = 000015 370% 2562 2572 

CRLF = 000200 3718 746 2533 2572 

CSR 002026 5768 827 832% 840% 845k 902 909% 939% 1023% 1052k 1057k 1076% 1083% 


1088 1130k 1207% 1208% 1213k 1218 1264% 1265* 1270 1275k 1280K 1337k 1352% 
1357k 1383k 1397k 1398 1399 1403k 1408% 1439% 1444K 1448" 1467K 1472K = 1477% 





. MAIN. 


MACY11 30(1046) 
7 10: 02 


DVPCAR. P11 

DBIT = 000020 
DBUFF 001770 
DDISP = 177570 
DH1 016340 
DH21 017313 
DH23 017450 
DHS 016470 
DH? 016607 
DIGIT 003222 
DISPLA 001142 
DISPRE 000174 
DMUT 002016 
DSWR = 177570 
OT1 022024 
DT17 021734 
0T20 621754 
DT21 022054 
DT23 021774 
DTS 022040 
DT? 022004 
EBIT = 000100 
EMTVEC= 000030 
EM1 016230 
EM10 016657 
EM11 016712 
EM12 016750 
EM13 017000 
EM14 017046 
EM15 017111 
EM16 017154 
EM17 016572 
EN2 016257 
EM2x 016326 
EM2Y 016272 
EN20 017217 
EN21 017251 
EN22 017337 
EM23 017413 
EN24 017541 
EN25 020356 
EMS 016371 
EMY 016422 
EMS 016450 
EM6 016523 
EN? 016572 
ERRVEC= 000004 
EXERC 011634 
FBIT = 000200 
FIELD 004610 


25-OCT-77 10:10 PA 
‘CROSS 

1487K =61488K = 61494% 
1724x% 1725% 1731% 
1826% 1835k% 1836% 
2036% 2052%  2057% 
4748 = 1257 1265 
5598 1562% 1563% 
377% 509 725 
618 622 630 
682 29508 

690 29678 

634 654 28778 
642 650 674 
788 819% 

5098 725% 733% 
347% 733 

5728 850% 852 
376% 508 724 
619 623 631 
675 31998 

679 32028 

683 3Z14% 

691 32058 

635 655 32128 
643 651 32078 
4728 1232 1383 
u65# 712k 713% 
617 28478 

645 29008 

649 29058 

653 29108 

657 29148 

661 29218 

665 29278 

669 29338 

673 28898 

621 28518 

1233k 1245x 1258% 
28538 

677 29398 

681 29448 

685 29548 

689 29628 

693 29818 

697 30588 

625 2865% 

629 2870% 

633 28748 

637 28828 

641 28908 

4588 722 723% 
907% 938% 1074 
1378x 413k 1502 
2252% 

797 18948 

4718 1244 1399 
806 10698 


GE 


1488 


1292% 


734% 
1075% 
1503x 


1515 


1494 


1305% 


748 
1106% 
1535% 


1868 


. # 
79 
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1093% 


1725 


1318% 


749% 
1110% 
1739 


2008 


1094 


1731 


28584 


754% 
1125 
1740x 


2032 


1529k% 1554% 1604% 1646% 
1776% 1785 1791% i792% 
1868 1876 1882k 1999% 
1646 1708 1817 2094 
2122 
1752 1792 1835 1842 
825 826% 830% 874% 
1126*% 1170k 1183 1198% 
1850 1851x 1885% 2246 


SEQ 0080 
1708% 1713% 
1817% 1822% 
2005 2032 
878% 906 
1206% 1377 
2247k 2249% 


we 


MAIN. MACY11 30(1046) 25-OCT-77 10:10 PAGE 80 

DVPCAR. P11 25-OCT-77 10: 02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0081 
F5010 011640 592 18958 

F5011 011640 593 18968 

F5012 011652 594 1900% 

F5013 011664 595 19048 

F6010 011676 596 19088 

Fedii 011732 597 19208 

F6012 011716 598 19148 

Fe013 011716 599 19158 

GBIT = OO00004 4768 832 909 939 1023 1076 1130 1304 2095 
GENCOD 012154 1133 19758 

GENER 001700 5318 836 943 946 1080 1976 1988 

GNS = XKKKKK U 346 745 2792 2793 2794 2795 2796 2799 2800 2801 2802 2803 
HT = 000011 368% 2531 2572 

1AR 002030 5778 929 935 1163 1168 1391 1504 1517 1741 1766 1852 1870 2034 
10CM 005302 800 11828 

1\O0TVEC= 000020 463% 710% 711x 

KBINT 012550 760 820 899 1015 1070 1127 1184 2067% 
KBVEC 002110 601% 760% 820% 899% 1015k 1070% 1127k 1184% 
LF = 000012 369% 2566 2572 

LONGIN 002020 573% 

LOOP 004314 809 16148 

LOPTST 013042 1033 21358 

MAPE 005054 794 11258 

MASSO 020417 873 886 951 1105 1157 2120 30648 

MASS10 021025 1152 31128 

MASS11 021060 270 948 1102 1154 31178 

MASS12 021114 778 31228 

MASS13 021144 822 1069 31268 

MASS14 021174 31 30% 

MASS15 021221 864 31348 

MASS16 021246 1197 31388 

MASS17 021271 978 31428 

MASS18 021315 781% 782 31468 

MASS19 021323 2096 31488 

MASSZ 020422 1134 30658 

MASS20 021362 1095 31548 

MASS21 021430 1017 31618 

MASS22 021463 1020 31668 

MASS23 021515 1014 31718 

MASS25 021556 1046 31778 

MASS26 021601 1048 31818 

MASS27 021645 2117 31888 

MASS28 021650 1050 3189% 

MASS3 020434 1138 3067% 

MASSY 020503 1140 30748 

MASSS 020552 1142 3081% 

MASS6 020616 1144 30878 

MASS7 020650 1146 30928 

MASS8 020720 1148 30998 

MASS9 020761 1150 31058 

MBIT = 000040 4738 861244 1337 1383 

MoD 002066 5928 1079 

MODUL 001742 5488 834 953 

MONDAT 012724 1898 1902 1906 21088 

MONIT 003002 776% 815 817 865 875 879 887 952 979 1047 1062 1107 1111 


1171 1199 1894 2062 


MAIN. MACY11 30(1046) 
25-OCT-77 10: 02 


DVPCAR. Pil 

MuT 001722 
MO 017470 
M1 017464 
M11 017515 


M13 017607 
M14 017631 
m15 017652 
M16 017676 
M17 017721 
m18 017755 
M19 017774 
N2 017474 
M20 020013 
M21 020022 
M22 020041 
M23 020216 
M24 020230 
M25 020250 
N26 020267 
N27 020321 


M3 017476 
M4 017501 
MS 017504 


M5010 006672 
m5011 010322 
m5012 011152 
M5013 006774 
M6 017507 
M6010 007440 
M6011 010024 
M6011A 010216 
M6011B 010310 
M6012 007632 
M6013 007632 
nN? 017512 
NOCLK 012350 
PASCNT 002060 
PASS 002056 


PATT 001774 


PIRQ = 177772 
PIRQVE= 000240 
PRO == 000000 
PRi = O00040 
PR2 = 000100 
PR3 = 000140 
PRY = 000200 
PRS = 000240 
PR6 = 000300 
PR7 == 000340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
RBiT = 000001 
ROCHR = 104406 
ROLIN = 104407 


25-OCT-77 
540% 835 
29708 
29698 

861 973 
766 29888 
767 29928 
768 29958 
29998 

769 3003% 
300848 

770 3011#% 
1318 29718 
816 30148 
771 30168 
882 30198 
883 30408 
772 3042% 
773 3045#% 
774% 3048k 
812 30538 
1305 29728 
1292 29738 
1258 29748 
548 14358 
549 17028 
£50 1813% 
551 14638 
1245 29758 
552 1550% 
553 16408 
1669 1674% 
1665 1684 
554 15998 
555 16008 
1233 29768 
352 1690 
5898 814x 
5888 851x 
1188 3199 
5618 1564 
3758 

4O9n 

392% 762 
3938 

3948 

3958 

3968 

3978 

3988 

354 3998 
3728 373 
3738 

Y64R 2808 
4788 1317 
779 2335 
2380 28008 


955 


1043 


1689% 


’ Ff 


10:10 PAGE 81 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1194 2977% 


859 966 971 
855 898% 964% 
3207 3210 3212 


1414 1481 1625 


1486 1649 1723 


2818x 2824% 2836% 
1505 1745 1758 


1650 


1834 


2837% 
1776 


1041 
968% 


1718 


1863 


1188 
1032% 


1787 


1865 


1192 
1036* 1037 1182% 


1829 1878 


2036 


SEQ 0082 


1187% 


F 7 sin cal a as 
MAIN. MACY11 30(1046) 25-OCT-77 10:10 PAGE 82 
SEQ 0083 


1569 1644 1666 1681 1706 1742 1765x 1767 1783% 1854 1863 1864% 1866 
1867% 1871 1932 1933 1936 1938% 1941k 1947 1948 1951 1953% 1956k 1964 
1965% 1966% 1969k% 2078 2099k 2100% 2111 2114 2115 2124% 2127k 3212 


DVPCAA. P11 25-OCT-77 10: 02 CROSS REFERENCE TABLE -- USER SYMBOLS 

RDOCT = 104410 813 823 884 1018 1021 1072 2097 28018 

RESREG= 104412 28038 

RESVEC= 000010 W598 | 
SAVREG= 104411 28028 | 
SETBYT 012112 1607 1614 162016271666 «1678196282150 21602170 218021922202 
SETCLK 002640 358 07478 | 
SETPTN 012654 1911 1917-1922 20948 

STACK = 001100 3638 708 | 
START 002362 350 = 7018 

STKLMT= 177774 3748 

SUR -OO1140 508% 706 724k 726 732% 2257 2435 2440 2443 2816 2829% 

SWREG 000176 3u8 732 857 862 885% 969 974 1039 1044 1190 1195 

SWREGS 003564 803 8828 

suo = 000001 W278 

suoo = 000001 u178 = 427 

Suo1 = 000002 ui6R 426 

Suo2 = o00004 ui58 425 

SHO3 = OO0010 ving 424 

SuO4 = 000020 Wize 423 

SOS = OOOO4O Wize 422 

SWOe = 000100 uil® 421 

Suo? = 000200 W108 420 

suog = 000400 yooR = «419 

Suo9 = 001000 ose 418 

Sui = 000002 u268 

Sui0 = 002000 yu7a 

SWi1 = 004000 yO6s 

Sui2 = 010000 yO5s 

Sui3 = 020000 yous 

Sui4 = 040000 uO3s 

Suis = 100000 4028 

Su2 = 000004 4258 

SW3 = 000010 u 248 

Sw = 000020 y238 

SWS = 000040 4228 

Swe = 000100 u218 

Su? = 000200 4208 

Sug = 000400 4198 

Su9 = 001000 4188 

TABLE 012200 914 19878 

TADDR 002006 cose = sB24k = s«S33)—~S:i«HNRSCIC19R «1024 ~=—«s«1073k«1077,S'«—«aS06 = sa1S14 = ss1518 «18851565 


TADDR1 002010 569% 1644% 1645k% 1668 1683 

TBADDR 002012 5708 1936% 1951% 2078% 3207 

TBIT = 000010 475# 1291 1444 1448 1472 1477 1487 1495 1523 1529 1708 1713 
1732 1785 1791 1822 1826 1836 1843 1876 1882 

TBITVE= 000014 4608 

TEMP 002046 584R# 1391% 1392 1395 1504*% 1506 1508x 1509 1517x 1518 1565* 1566% 
1741x 1742 1744x 1746 1766% 1767 1852k 1854 1856% 1857 1870k 1871 

TEMP1 002050 6858 1022k 1027 150i1k 1510% 1511 1569% 1570k 1571 1738% 1747k 1748 
1858x 1859 2073 2075 2080x 2082k 2086x 3199 

TEMP3 002052 5868 2030k 2034% 2035% 2037 3205 


TEMPY 002054 5878# 2031% 2038% 2039 





MACY11 301046) 
25-OCT-77 10: 02 


MAIN. 

DVPCPR. P11 
TiOCH §=005414 
TKVEC = 000060 
TNUMB) = 002022 
TPVEC = 000064 
TRAPVE= 000034 
TRTVEC= 000014 
TSTBYT 011746 
TSTONE 012030 
TST1 005414 
TST10 006232 
TST11 006376 
TST12 006672 
TST13 006774 
TST14 007440 
TST15 007632 
TST16 =©010024 
TST17 «=©010322 
TST2 005546 
TST20 011152 
TST3 005612 
TST4 005656 
TSTS 006052 
TST6 006122 
TST? 006166 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
VECTO 002032 
VECTOR 002634 
VECT1 002036 
VECTIA 002040 
XXDP 002000 
YLOOP 001766 
SAUTOB 001134 
SBDADR 001122 
SBDDAT 001126 


25-OCT-77 10:10 PAGE 
901 940 1186 
467% 

5748 1205% 1231% 
1603% 1643k 1705% 
4O8R 

466% 714% 715% 
4618 

1442 1447 1470 
1825 19308 

1673 1688 19458 
12048 2271 

13358 227 

13738 2279 

14378 2280 

1465# 2281 

15528 2282 

1602 2283 

16428 2284 

17048 2285 

12308 2272 

18158 2286 

12428 2273 

12558 2274 

12898 2275 

13028 2276 

12158 2277 

27968 

743 766 767 
816 822 861 
1014 1017 1020 
1140 1142 1144 
2120 2339 2342 
2498 2536 2630 
860 872 950 
27938 
27958 
27948 

578% 1375% 1485% 
5798 1376% 1486% 
5808 

5818 

5658 756 976 
558% 841% 842% 
1084* 1085% 1086 
1267k 1268 1276% 
1360 1384% 1385% 
1530% 1531k 1532 
1884x 1885 2001% 
2139 2142% 8 =-2143% 
2181x 2182k 2183 
2224% 2225 

505% 

5008 

5028 1218% 1220 
1779% 8 1933% 1934 
3199 3202 3207 


12028 


1243% 
1816% 


1476 


2193% 


1341% 
1948% 
3210 


1256% 


2006 


1609 


G 7? 


1290% 
3199 


1616 


770 

873 
1048 
1150 
2411 
2838 
1104 


847% 
1091 
12814 
1405% 
1728 
2053x 
2152% 
2195 


1395% 
2000% 


83 
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1303% 
3202 


1622 


1316% 
3205 


1629 


772 
883 
1069 
1154 
2463 


1156 


1053% 


1336% 
3207 


1658 


773 
886 
1095 
1157 
2480 


1193 


1054% 
1211 
1353% 
1410% 
1795 
2058% 
2162% 
2205 


1754% 
2009 


1374x 
3210 


1680 


774 
948 
1102 
1194 
2482 


2116 


14 38% 
3212 


1711 


778 
951 
1105 
1197 
2485 


2119 


1058% 


1466% 


1716 


782 
973 
1134 
2096 
2487 


2471 


| 
| 
| 





. MAIN. 


MACY11 30(1046) 


DVPCPRA. P11 


SCHARC 
SCKSWR= 
SCNTAG 
SCM1 


SCNTLG 
SCNTLU 
SCRLF 


SGDDAT 


SGET42 


SPWRON 


015216 
KKKKKK 
001100 
000004 
000010 
000004 
014325 
014320 
001175 
015436 
004310 
015426 
004 300 
004 264 
004234 
004256 
001103 
001115 
014514 
001116 
002112 
014646 
061112 
001172 
001156 
001155 
001120 
001124 


004270 
KKKEKE 
014512 
001104 
016212 
001135 
001114 
001176 
001106 
001110 
KOKKKE 
014343 
014332 
002002 
001154 
000000 


015670 
015672 
014006 
001100 
016220 
016052 


25-OCT-77 
10: 02 


2538% 


10:10 PAGE 
CROSS 
2548x 2555 
703 704 
5218 522% 
5218 522% 
520 
2355 2414 
2630 26388 
1000 10068 
26348 
10028 2450 
9978 
994% 998 
2236 2255 
718x 2266% 
24278 
2432% 8 =2433% 
2477 
24628 
2431% 2455 
717k 2265% 
2541 2572 
2572 
1219% 1232% 
1317k 1321% 
1625k 1654% 
1818k 1823% 
2118 2122 
3210 3214 
24138 
2824 28418 
2434x 2455 
2346 2355 
2259% 2263% 
719% 2259 
2263 2440 
839% 955% 
2543 2572 
12298 12418 
17038 18148 
2700% 27138 
2670x 2675 
22678 
991% 992% 
28448 
2836 


2564% 


712 
523% 
523% 


2438 


2446 


1236% 
1240¥ 
1672* 
1934 

2148k 


84 
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25698 
716 


524% 
5248 


2455 


2270 


2455 


2448 


1244x 
1346% 
1676* 
1949 

2158x 


H 7 


USER SYMBOLS 


717 


2463 


2428% 


2469 


2455 


1248% 
1394% 
1687% 
1965 

2168% 


2572 
2445 


3207 
13018 


27158 


2482 


2455 


3199 


1257% 
1440x 
1709% 
1999 

2178% 


3212 
13148 


2487 


3202 


1261% 
1445x 
1714% 
2009 

2190% 


13348 


2491 


3205 


1270% 
1468% 
1753% 
2012% 
2200% 


1372% 


2537 


3207 


1271 
1474x 
1755 
2015% 
2210% 


14368 


2572 


3210 


1291% 
1574% 
1760% 
2076 

2220% 


14648 


3212 


1295% 
1605* 
1771% 
2098% 
3199 


15518 


SEQ 0085 


3214 


1304% 
1612% 
1773 
2099 
3202 


1601% 


ae 


Be. 
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SPWRNG 016206 28398 

SPWRUP 016124 2818 28248 

SQUES 001174 5258 2339 2355 2411 2414 2455 2572 - 

SROCHR 014062 23038 2799 

SRODEC= KEKEKK U 2802 

SROLIN 014202 23318 2800 

SRDOCT 014354 23758 2801 

SRDOSZ = 000010 23248 

SREGAD 001160 518% 

SREGO 001162 5208 

SREG1 001164 5218 

SREGZ2 001166 522% 

SREG3 001170 523% 

SRESRE 015732 27498 2803 

SRZ2A = KKKKKK U 2804 

SSAVRE 015674 2733% 2802 

SSAVR6 016216 2817% 2825 2826% 2827k 28438 

SSCOPE 013670 710 22428 

SSETUP= 000027 701% 709 710 712 714 716 717 719 741 744 990 2243 2292 
2361 2428 2443 2450 

SSTUP = 177777 7018 

SSVLAD 013760 2250 2256 22628 

SSWR = 121000 18 £24 525 717 719 985 991 1001 1007 1008 1205 1231 1243 


1256 1290 1303 1316 1336 1374 1438 1466 1553 1603 1643 1705 1816 
2237 2238 2239 2243 2253 2255 2256 2257 2262 2264 2267 2270 2420 
2421 2422 2423 2431 2435 2440 2443 2455 2840 

SSWRMK= 000000 2239 

S$SWO8T 014022 22708 

STKB 001146 5118 2048 2290 2207 2313 

STKS 001144 5108 761% 777% 821% 900% 1016k 1071% 1128k 1185* 2290 2305 2311 

STN = 000021 1# = =§=©1203 12058 1229 12318 1241 12438 1254 12568 1288 12908 1301 1303% 
1314 i316# = 1334 1336% 1372 13748 1436 14388 1464 14668 1551 15538 1601 
16038 1641 16438 1703 17058 1814 18168 2271 


STPB 001152 5138 2561x 2572 

STPFLG 001157 5178 2519 2572 

STPS 001150 5128 2559 2572 

STRAP 015770 714 27698 

STRAPZ 016012 27808 2791 

$TRP = 000013 27848 27938 27948 27958 27908 27978 2799 28008 28018 #28028 22038 28048 

STRPAD 016024 2774 27918 

STSTNM 001102 490% 990% 2236 2262% 2267 2270 2435 2455 

STTYIN 014310 2332 2333 2350 22548 

STYPBN= Ee8R2 U Z797 

S$TYPOS 015222 25848 2796 

$TYPE 015002 25198 2784 2792 

STYPEC 015152 2540 2547 2554 25598 2560 

STYPEX 015220 2565 2567 25708 

STYPOC 015472 26698 2793 

STYPON 015506 2668 267!8 2795 

STYPOS 015446 26648 2794 

SXTSTR 013670 22448 

$$GET4= 000000 10018 

$$SWO8= 000021 22708 2271 22728 4840622738) «=6.22748 «= 22758 «= 22768 «= 22778 «= 22788 = 22798 «= 22808 = 22818 = 228 2% 
22838 22848 22858 22868 22878 

SOFILL 015671 2665% 2669% 2679 27148 


SYOCAT= xxxexK U 2437 
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= 022066 342% 346% 3518 353% 355% 3578 3598 487% 528 529% 5308 var Vie 


7468 §=1008 2270 2290 2354% 2355 2361 2414 2455 25018 2572 2638% 2820 


2842-31988 | 
| 
} 
| 


ee 


ABS. 022066 000 


ERRORS DETECTED: 0 


DVPCAR. BIN, DVPCAR. SEQ/CRF=DVPCAR. P11 
RUN-TIME: 17 9.9 SECONDS 

PUN-TIME RATIO: 441/28=15. 6 

CORE USED: 24K (47 PAGES) 


